0HC  FILE  COR) 

NAVAL  POSTGRADUATE  SCHOOL 
Monterey ,  California 


DTIC 

ELECTEI 
AUG  0  819881 


I 


AN  EXPERT  SYSTEM  TO  DETECT  ESPIONAGE 
THROUGH  CREDIT  RECORD  ANALYSIS 


Gary  M.F.  Salazar 


March  1988 


Thesis  Advisor: 


Taracad  R.  Sivasankaran 


Approved  for  public  release;  distribution  is  unlimited 


88  8  08  007 


UNCLASSIFIED 


SECURITY  CLASSIFICATION  OF  This  PAGE 


la.  REPORT  SECURITY  CLASSIFICATION 

Unclassified 


REPORT  DOCUMENTATION  PAGE 


lb  RESTRICTIVE  MARKINGS 


2a.  SECURITY  CLASSIFICATION  AUTHORITY 


2b  DECLASSIFICATION  / DOWNGRADING  SCHEDULE 


4.  PERFORMING  ORGANIZATION  REPORT  NUMSER(S) 


3  DISTRIBUTION  /  AVAILABILITY  OF  REPORT 
Approved  for  public  release; 
Distribution  is  unlimited. 


5  MONITORING  ORGANIZATION  REPORT  NUMBER(S) 


6a  NAME  OF  PERFORMING  ORGANIZATION 

Naval  Postgraduate  School 


6c.  ADDRESS  {City.  State,  and  ZIP  Code) 

Monterey,  California  93943-5000 


8a.  NAME  OF  FUNDING  SPONSORING 
ORGANIZATION 


6o  OFFICE  SYMBOL 
(If  applicable) 
Code  54 


7a  NAME  OF  MONITORING  ORGANIZATION 

Naval  Postgraduate  School 


7b  ADDRESS  (Oty,  State,  and  ZIP  Code) 

Monterey,  California  93943-5000 


8b  OFFICE  SYMBOL  9  PROCUREMENT  INSTRUMENT  IDENTIFICATION  NUMBER 
(If  applicable) 


1 1  TITLE  (Include  Security  Classification) 

AN -EXP ERL  SYSTEM  TO  DETECT  ESPIONAGE  THROUGH  CREDIT  RECORD  ANALYSIS. 


1  laPfazarA,L  tlanry  F . 


13a.  TYPE  OF  R£°ORT. 

Master  s  Thesis 


16  SUPPLEMENTARY  NOTATION. 


13b  time  COVERED 
FROM  TO 


14.  DATE^F  REPORT  |Year,  Month,  Day7  |l5  PAGE  COUNT 


The  views  expressed  in  this  thesis  are  those  of  the  author 
and  do  not  reflect  the  official  policy  or  position  of  the  Department  of 


COSATI  CODES 


GROUP  SUB-GROUP 


18  SUBJECT  TERMS  ( Continue  on  reverse  if  necessary  and  identify  by  block  number) 
Expert  system;  Credit;  Finance;  Credit  Analysis;  Risk; 
TRW;  Espionage 


19  ABSTRACT  (Continue  on  reverse  if  necessary  and  identify  by  block  number) 

>  Finance  has  been  the  prime  motivation  in  many  recent  espionage  cases.  This  thesis 
expanded  the  prototype  Manpower  Financial  Tracking  Expert  System  (MFTES)  that  analyzes 
individual  financial  profiles  in  order  to  detect  the  potential  of  an  employee  to  engage  in 
espionage  activities.  The  architecture  of  MFTES  has  modules  that  capture  Control 
Strategy,  Taxonomy  of  Concepts  Expert  Rules,  and  Numerical  Processing.  During  evaluation, 
it  successfully  followed  the  documentary  trail  for  75  employee  credit  r&portsand  made 

inferences  about  their  potential  risks.  ' '''  *  t-,  A 

’y.r-r  '  '  r  l\  .1/  - 


-•  V  r 


20  DISTRIBUTION  '  AVAILABILITY  OF  ABSTRACT  21  A8STRACT  SECURITY  CLASSIFICATION 

C3 unclassified/unlimited  C3  same  as  rpt  □  otic  USERS  Unclassified 


22a  NAME  OF  RESPONSIBLE  INDIVIDUAL  22b  TELEPHONE  (Include  Area  Code) 

Prof.  Taracad  Sivasankaran _  1408)  646-2637 


DD  FORM  1473,  84  mar  33  APR  edition  may  be  used  until  exhausted  SECURITY  CLASS 

All  other  editions  are  obsolete  ~ .. .  _ 


8c.  ADDRESS  (City,  State,  and  ZIP  Code) 

10.  SOURCE  OF  FUNDING  NUMBERS 

PROGRAM 

PROJECT 

TASK 

WORK  UNIT 

ELEMENT  NO. 

NO 

NO 

ACCESSION  NO 

II 

l 

5] 


SECURITY  CLASSIFICATION  OF  THIS  PAGE 
UNCLASS  19*1 — 406-24* 


$3 


~  1 


MtfMi a fcJWiU  »-»-*** 4/w*Vt  ».sr**rt.w-«  t /*  w»  v 


ABSTRACT 

Finance  has  been  the  prime  motivation  in  many  recent 


espionage  cases. 


This  thesis  expanded  the  prototype 


Manpower  Financial  Tracking  Expert  System  (MFTES)  that 
analyzes  individual  financial  profiles  in  order  to  detect 
the  potential  of  an  employee  to  engage  .r.  espionage 
activities.  The  architecture  of  MFTES  has  modules  that 
capture  Control  Strategy,  Taxonomy  of  Concepts,  Expert 


Rules,  and  Numerical  Processing, 


During  evaluation,  it 


successfully  followed  the  documentary  trail  for  75 
employee  credit  reports  and  made  inferences  about  their 
potential  risks. 
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considered  validated.  Any  application  of  these  programs 
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I.  INTRODUCTION 


The  use  of  espionage  by  hostile  forces  to  gain  access 
to  classified  information  is  a  clear  threat  to  our 
government.  The  effect  of  espionage  is  not  always  readily 
apparent  but  there  can  be  significant  and  irreparable 


damage  to  our  national  security. 


The  motives  for 


espionage  are  many.  Whether  it  is  committed  for  money? 
personal  gain  or  for  political  reasons*  the  prevention  of 
espionage  has  become  a  high  priority  of  our  security 
forces.  In  most  cases*  including  those  of  convicted  spies 
RBI  agent  Richard  Miller,  the  National  Security  Agency’s 
Ronald  W.  Felton,  and  the  Navy’s  John  Walker,  financial 
gain  has  been  the  prime  motivation.  [Ref.  II 

Enormous  resources  are  required  to  detect  and  prevent 


esp i onage . 


The  money  spent  and  manpower  employed  to 


identify,  locate  and  then  apprehend  a  spy  can  only  be 
justified  when  compared  to  the  loss  of  information  vital  to 
our  national  security.  Miller,  Felton  and  Walker,  and 
other  similar  cases,  created  clearly  identifiable 
documentary  trails.  Rosa  concluded  that  if  there  had  been 
a  computer  system  automatically  tracking  individuals' 
income  and  spending,  it  could  have  alerted  the  authorities 


s 

t 


yarn 


in  t ime  to  limit, 


if  not  prevent,  the  resulting  damages 


CRef.  23. 

Currently  the  Defense  Investigative  Service  (DIS) 

i 

obtains  paper  credit  reports  on  subjects  undergoing 
background  investigations  for  positions  requiring  top 
secret  clearance.  These  documents  are  reviewed  for 

derogatory  information  revealing  financial 

irresponsibility,  which  may  be  cause  for  denial  or 
!  revocation  of  clearance  eligibility  by  the  cognizant 

adjudicating  authority.  Under  current  procedures  all 
I  credit  reports,  bath  those  with  varying  degrees  of 

j  negative  information  and  those  that  are  ’clean’,  are 

|  produced  in  paper  format  and  individually  reviewed  by  DIS 

j  personnel.  It  will  become  increasingly  important  for  DoD 

i  to  -automate  this  process  as  much  as  possible  since 

jl 

t  stabilized  or  even  decreasing  human  resources  are  now 

I 

|  anticipated.  CRef.  33 

[  At  the  same  time  the  role  of  finances  in  so  many  recent 

? 

i  espionage  cases  has  led  to  calls  for  increased  use  of 

I 

|  credit  checks,  even  to  the  point  of  including  them  as  part 

I  or  investigations  for  secret  level  clearances.  A  1985 

j 

* 

"  report  to  the  Secretary  of  Defense  by  the  commission  to 

review  DoD  security  policies  and  practices  recommended 
expansion  of  the  investigative  scope  for  a  SECRET  clearance 
*  to  include  a  credit  check  of  the  subject  CRef.  4,  p.  93. 

i 
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Clearly  desirable  is  a  streamlined  process  in  which  the 


generation  of  paper  is  kept  to  a  minimum  and  human 
resources  are  devoted  only  to  those  cases  with  derogatory 
indications  CRef.  33. 

The  purpose  of  this  thesis  has  been  to  more  fully 
develop  the  prototype  MANPOWER  FINANCIAL  TRACKING  EXPERT 
SYSTEM  (MFTES).  MFTES  analyzes  individual  financial 
profiles  in  order  to  detect  the  potential  of  an  employee 
involving  himself  in  espionage  activities.  The  prototype 
was  developed  by  Sivasankaran  and  Bui  CRef.  13  of  the  Naval 
Postgraduate  School  ( NPS ) ,  Monterey,  California.  The 
prototype  was  sponsored  by  the  Defense  Personnel  Security 
and  Research  Center  ( PERSEREC )  as  part  of  its  effort  to 
improve  the  DoD  personnel  security  program  through 
increasing  the  use  of  automated  data  and  techniques. 

The  thesis  is  organized  as  follows:  Chapter  II  provides 
background  on  the  evolution  of  expert  systems,  on  the  MFTES 
prototype  and  its  expanded  development.  The  MFTES 
implementation  is  discussed  in  Chapter  III,  followed  by  a 
discussion  of  the  evaluation  tests,  the  expanded  system’s 
hardware  and  software  requirements  and  the  conclusions  and 
recommendations  in  Chapter  IV.  Appendix  A  is  a  listing  of 
the  MFTES  source  code  and  Appendix  B  is  a  listing  of  the 
lud  account  conditions  (remarks)  used  in  the  TRW  credit 


rating  system. 


I  I .  BACKGROUND 

A.  HISTORY  OF  EXPERT  SYSTEMS 

“An  expert  system  is  a  method  for  handling  real-world, 
complex  problems  requiring  an  expert’s  interpretation  and 
which  solves  these  problems  using  a  computer  model  of 
expert  human  reasoning.  It  reaches  the  same  conclusions 
that  a  human  expert  would  reach  if  faced  with  a  similar 
problem."  CRef.  51  The  heuristics  and  rules  that  make  up  a 
human  expert’s  knowledge  are  transferred  into  the  rule-base 
and  inference  engine  of  the  expert  system.  The  facts 
within  the  rule  base  can  be  represented  in  many  ways  but 
are  usually  in  the  farm  of  an  IF... THEN  r e 1  a 1 1 onsh 1 p .  The 
inference  engine  contains  the  strategies  by  which  the 
expert  system  orders  the  rules,  facts  and  goals  to  reach  a 
cone lusion . 

Expert  systems  have  been  in  use  for  over  15  years  and 
have  roots  to  the  pre-world  War  II  period  with  the 
development  of  Formal  logic  and  Cognitive  psychology. 
Since  that  beginning,  expert  systems  have  been  used  in 
many  different  types  o.'  commercial  applications.  Two 
early,  successful  systems  developed  at  Stanford  University 
were  DENDRAL  and  MYCIN.  DENDRAL,  conceived  in  the  1960’s, 
is  a  chemistry  expert  system  designed  to  examine  a 


spectroscopic  analysis  of  an  unknown  molecule  and  predict 


the  molecular  structures  that  could  account  for  that 
particular  analysis.  MYCIN,  developed  in  the  mid-1970’s 
was  designed  to  aid  physicians  in  the  diagnosis  and 
treatment  of  meningitis  and  bacteremia  infections.  [Ref. 
6,  p.  15]  Commercial  applications  in  the  1 980 ’ s  cover  many 
different  fields  including  decision  making,  software 
maintenance  management ,  software  design  and  development 
aids,  ocean  surveillance,  knowledge-based  tutors, 
information  management  and  weather  forecasting. 
Applications  in  the  military  are  just  as  widespread.  Some 
of  the  more  recent  efforts  include  RICA:  an  expert  system 
tor  radar  imaqe  classification,  ACES:  an  airborne 
communicet i cns  expert  system,  and  TARSIA:  a  system  that 
helps  track  underwater  contacts.  [Refs.  7  and  Q] 

Practical  applications  for  expert  systems  abound. 
Whenever  human  experts  are  in  great  demand  and  short 
supply,  a  computer  based  consultant  can  help  amplify  and 
disseminate  the  needed  expertise.  An  expert  system  car, 
capture  the  practical  experiential  knowledge  that  is  hard 
to  pin  down.  [Ref.  9] 

Credit  institutions  have  always  used  heuristic 
procedures  in  their  analysis  of  individual  financial 
profiles  in  order  to  assign  good  or  bad  risk  ratings. 
Although  such,  analysis  is  not  considered  exact,  enough 
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advances  in  the  field  have  been  made  to  make  it  practical 
to  articulate  the  heuristics  in  the  examination  and 
interpretat ion  of  financial  data.  Many  of  these  heuristics 
appear  structurable  enough  to  be  captured  by  the  current 
expert  system  technology.  CRef.  13 

One  industry,  financial  services,  is  emerging  as  the 
next  significant  user  of  expert  systems.  One  financial 
services  leader  in  expert  systems  implementation  is  New 
York-based  American  Express  Co. 

The  company  began  its  involvement  with  its  current  AI 
expert  system  approximately  2  1/2  years  ago.  It  uses 
a  customized  expert  system  called  the  Authorizer’s 
Assistant  (AA),  which  was  designed  to  help  the  authorizer 
filter  through  credit  data.  American  Express  has  noted 
three  primary  benefits  derived  from  the  AA  system.  First, 
productivity  and  time  savings.  The  company  expects  20'/. 
time  reduction  in  credit  review  and  has  observed  a  96.5’/. 
accuracy  rate  to  date.  Second,  losses  associated  with  bad 
credit  risks  have  been  reduced  by  the  improved  screening 


process . 


Third,  improved  customer  service  benefits  are 


expected  because  the  higher  percentage  of  quicker  approvals 
will  most  likely  increase  customer  sa t i sf ac t i on .  CRef.  103 
Another  expert  system  user,  Equitable  Financial  Cos., 
has  produced  a  demonstration  model  that  evaluates  the 
underwriting  risk  of  someone  who  might  have  a  history  of 
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TABLE  I.  TRW  CREDIT  REMARKS  USED  IN  MFTES 


Report 

Abbrev i at i on 
INQUIRY 

BK  LIQ  REQ 

bK  V  FILE 

BK  7  DISC 

CO  TAX  LN 
PD  COLL  AC 

PD  WAS  1  BO 
FORECLOSURE 

REPO 

CHARGE  OFF 

JUDGMENT 
COLL  ACCT 


DELINQ  180 
DELINQ  120 
DELINQ  60 


Exp lanat ion 

A  copy  of  the  credit  profile  has  been 
sent  to  this  credit  grantor  at  their 
request . 

Debt  included  in  or  discharged  through 
Bankruptcy  Chapter  7  or  11. 

Voluntary  or  involuntary  Petition  in 
Bankruptcy;  Chapter  7- ( L iquidat i on ) 

filed. 

Voluntary  or  involuntary  Petition  in 
Bankruptcy;  Chapter  7- ( L i qu l da t i on ) 

d i schar ged . 

County  Tax  Lien. 

Paid  account/was  a  collection  account 
insurance  claim  or  education  claim. 

Paid  account/was  delinquent  180  days. 

Credit  grantor  sold  collateral  to  settle 
defaulted  mortgage. 

Merchandise  was  taken  back  by  credit 
grantor;  there  may  be  a  balance  due. 

Unpaid  balance  reported  as  a  loss  by 
credit  grantor. 

Judgment . 

Account  seriously  past  due/account 
assigned  to  attorney  collection  agency  or 
credit  grantor’s  internal  collection 
department . 

Account  delinquent  180  days. 

Account  delinquent  120  days. 

Account  delinquent  60  days. 


*  i  »•  J*  Lli.  * 


PROLOG  was  chosen  as  the  programming  language  because 
it  is  a  language  currently  used  in  a  wide  spectrum  of 
expert  system  app 1 icat i ons .  [Ref.  123  Additionally.  PROLOG 
is  integrated  within  the  Arity/Expert  Development  Package, 
a  commercially  produced  collection  of  development  tools 
which  provide  the  basis  for  constructing  an  expert  system 
[Ref.  123  The  Arity/Expert  Development  Package  was  chosen 
as  a  shell  for  MFTES  because  of  its  ability  to  handle 
medium  to  large  size  expert  systems.  its  control  mechanism 
for  controlling  the  way  in  which  information  is  ordered  or 
accessed,  and  its  facility  for  presenting  explanations  to 
the  reasons  behind  decisions.  "Arity  is  one  of  the  leading 
companies  in  the  Prolog  world  with  a  strong  reputation  for 
reliability  and  suppor t . . . and  the  package  has  a  proven 
record  of  commercial  success"  CRef.  133. 

Initial  consideration  was  given  to  developing  the 
expanded  MFTES  on  the  NPS  mainframe  computer  because  an 
interface  to  TRW  Credit  System  reports,  also  generated  on  a 
mainframe,  could  then  be  more  easily  achieved.  However 
this  proved  infeasible  because  the  Arity/Expert 
Development  Package  is  not  configured  to  function  in  a 
mainframe  environment.  A  local  alternative  was  IBM’s  own 
expert  system  development  application,  known  as  Expert 
System  Environment  <ESE),  which  was  produced  specifically 
for  the  mainframe  environment.  The  ESE  package  was 
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temporarily  on  loan  to  the  Naval  Postgraduate  School  for  a 
six  month  trial  period.  ESE  was  considered  as  a  candidate 
for  the  MFTES  expansion  but  its  potential  loss  after  six 
months  and  the  lack  of  local  technical  support  suggested 
the  more  prudent  decision  was  to  continue  using  the 
Arity/txpert  Development  Package.  This  also  meant  the 
development  effort  could  continue  from  the  point  where  the 
MFTES  prototype  left  off  rather  than  having  to  duplicate 
code  already  produced. 

Another  reason  for  the  choice  of  a  microcomputer 
configuration  was  the  eventual  environment  in  which  MFTES 
would  be  used.  MFTES  was  intended  for  use  by  government 
security  officers  or  employees  responsible  for  reviewing 
personnel  credit  backgrounds,  and  because  they  could  be 
expected  to  operate  in  a  variety  of  different  locations 
(buildings,  ships,  etc.),  the  hardware  configuration  was 
expected  to  portable,  readily  available  and  easy  to  use. 
The  personal  computer  (PC)  appeared  perfectly  suited  for 
those  conditions. 

The  only  funding  used  was  for  record  typing  services 
which  converted  75  actual  TRW  records  to  a  format  usable  by 
MFTES,  and  for  financial  consultant  services  that  helped 
define  the  heuristics  applied  by  MFTES. 


L*  |x*  |.»  *.>  i. 


III.  IMPLEMENTATION 


A.  KNOWLEDGE  REPRESENTATION  OF  THE  FINANCIAL  PROFILE 

MFTES  represents  financial  analysis  expertise  through 
concepts  captured  by  frames.  Concepts  are  defined  by  their 
qualities  and  the  possible  values  or  properties  of  those 
qualities.  For  instance,  the  concept  Superpayer  may  have 
properties  such  as  monthly  payments,  that  range  up  to 
■$120,000,  and  the  number  of  active  creditors,  which  goes  up 


to  luO. 


Figure  3.1  shows  how  the  knowledge  and 


relationships  of  different  concepts  are  represented  in  the 
system . 

Loncept  relationships  are  represented  using  the  notion 
of  a  role.  For  example,  the  concept  PERSEREC  is  related  to 
the  concepts  CUSTOMER_PROFILE ,  SUPERPAYER  and  BANKRUPT 
through  the  roles  CUST0MER_PR0F ILE_ INFO,  SUPERPAVER_ I MFU 
and  BANKRUPT_ INFO .  The  concept  PERSEREC  holds  information 
on  the  profile  of  the  customer,  the  possibility  of  his 
being  a  Superpayer  and  his  potential  for  bankruptcy. 
Concepts  may  be  connected  through  a  series  of  intermediary 
co  ncep  ts . 

Since  the  connections  are  captured  through  the  use  of 
roles,  a  ’role-chain’  then  strings  the  various  concepts  in 
a  hierarchical  fashion.  The  lowest  level  concept  at 
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the  end  of  the  chain  is  represented  in  terms  of  its 
properties  or  values. 

It  is  also  possible  for  a  lowest  level  concept  to  have 
more  than  one  specific  value.  For  instance,  the  concept 
CONCLUSION  can  be  represented  with  one  of  the  following 
values:  TOO  MANY  ACCTS,  SUPERPAYER,  NORMAL,  SATISFACTORY, 
POOR,  VERY  POOR,  SERIOUS,  CRITICAL,  VERY  CRITICAL,  and 
POTENTIAL  BANKRUPT.  CRef.  1,  pp .  14-183 
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module  is  also  available  to  provide  details  of  how  a 
conclusion  was  reached. 

A  sample  interaction  with  the  system  is  shown  in 
Figure  3.3  CRef.  1,  pp.  14-181.  It  shows  a  NORMAL 
conclusion  was  reached  because  the  weight  of  the  current 
case  was  found  to  be  EXTREMELY  LOW.  The  determinat ion  of 
EXTREMELY  LOW  was  made  because  the  case's  OVERALL 
CALCULATED  WEIGHT  was  found  to  be  10  which  was  less  than 
the  CUT  OFF  VALUE  of  40.  The  OVERALL  CALCULATED  WEIGHT  was 
determined  to  be  10  because  the  PRIVATE  RECORD  of  the  case 
contained  that  value.  A  closer  examination  of  the  PRIVATE 
RECORD  showed  that  there  was  some  MISCELLANEOUS  ITEM  which 
was  assigning  the  10  points.  Deeper  interaction  with  the 
system  would  determine  precisely  what  credit  remark 
contained  in  this  record  was  causing  the  value  of  10  to 
appear . 


The  person  is  : 


1 )  norma  1  /  1.0 

L  How  was  the  conclusion  of  the  current  case  -2 
judged  to  be  normal  <1.000)  ?  1 

Since  LI]  the  above  weight  of  the  current  case  on 
a  range-2  is  extremely  low  (1.0) 
then  the  conclusion  of  the  current  case 
-2  is  normal  (1.0) 

previous 
explain 
cont i nue 

L  How  was  above  weight  of  the  above  case  on  a 
range-2  judged  to  be  extremely  low  (1.000)  ?  3 
Since  LID  the  overall  calculated  weight  of  the 
current  case  -2  is  10  (1.0)  and 
L23  the  extremely  low  cut  off  value  of  the 
ranqe  0-200  that  we  use-1  is  40  (1.0) 
and  10  =<  40 

then  the  above  weight  of  the  current 

case  on  a  range-2  is  extremely  low  (1.0) 
L  How  was  overall  calculated  weight  of  the  current 
case  -2  judged  to  be  10  (1.000)  ?  3 

Since  L 1 □  the  public  record  val  of  the  current 
case  -2  is  0  (1.0)  and 
L23  the  private  record  value  of  the  current 
case  -2  is  10  (1.0) 

and  10  =  0  +  10 

then  the  overall  calculated  weight  of  the 
current  case  -2  is  10  (1.0) 

L  How  was  private  record  value  of  the  current  case 
-2  judged  to  be  10  (1.000)  ?  3 
Since  L13  the  calculated  weights  for  all  current 
and  paid  accounts  of  the  current  case 
-2  is  0  (1.0)  and 

L 23  the  calculated  weights  for  all 

delinquent  accounts  of  the  current  case 
-2  is  0  (1.0)  and 

L33  the  calculated  weights  for  all 

m i see  1 1 aneous  private  items  of  the 
current  case  -2  is  10  (1.0)  and 
10  =  0  +  0  +  10 

then  the  private  record  value  of  the 
current  case  -2  is  10  (1.0) 

Figure  3.3  Sample  interaction  with  MFTES 
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C.  RULE  FORMULATION  AND  STRUCTURE 

The  problem-solving  heuristics  involved  in  the 
financial  analysis  are  captured  in  the  form  of  rules. 
Rules  help  the  expert  system  manipulate  the  concepts,  their 
properties  and  values  so  a  conclusion  about  the  individual 
credit  report  can  be  developed.  Rules  were  represented 
using  consequents  and  antecedents.  A  consequent  consists 
of  a  single  goal,  whereas  the  antecedent  can  be  made  up  of 
one  or  more  goals.  A  goal  indicates  a  property  of  a 
concept  has  some  particular  value.  [Ref.  1,  pp .  14-18] 

In  MFTES  a  simple  weighting  scheme  was  interleaved  with 
many  of  the  rules  to  add  up  a  preset  number  of  points  for 
each  negative  remark  occurring  in  the  credit  record.  The 
idea  is  similar  to  the  scheme  employed  in  traffic 
violations.  An  overall  conclusion  is  based  on  total  points 
scored  on  the  credit  record.  [Ref.  1,  pp .  14-18] 

Rules  were  written  following  the  same  structure  shown 
in  I RW ’ s  Glossary  of  National  Status  Comments  [Ref.  14] . 
Ihis  explanatory  aid  for  deciphering  the  coded  report 
abbreviations,  divides  the  102  credit  remarks  used  by  TRW 
tor  its  reports  into  two  broad  categories,  I  terns  of  Private 
Record  and  I  terns  of  Public  Record.  Figure  3.4  shows  the 
MF I LS  rule  base  structure  further  subdividing  the  Private 
and  Public  Records  into  smaller  sets  containing  similar 


remar  k  s . 
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The  Public  Record  is  made  up  of  a  two  sets,  one 
addressing  bankruptcy  and  liens  and  another  dealing  with 
related  miscellaneous  items.  Remarks  grouped  within  the 
bankruptcy  set  included  bankruptcy  adjustment  plans, 
bankruptcy  chapters  7,  11  or  13,  mechanic’s  liens  and 
federal  or  city  tax  liens.  Remarks  within  the 
miscellaneous  items  set  included  judgments  and  suits. 

The  Private  Record  is  made  up  of  three  sets,  one 
addressing  current  and  paid  accounts,  one  dealing  with 
delinquent  accounts  and  the  other  also  dealing  with 
miscellaneous  items.  Remarks  within  the  current  and  paid 
accounts  set  included  all  paid  accounts  past  due  and 
current  accounts  that  were  collections.  Remarks  within  the 
delinguent  accounts  set  included  de 1 i nguenc i es  60  days  or 
greater  and  foreclosures.  Remarks  within  the  miscellaneous 
items  set  included  settled  accounts  and  charge  offs  now 
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D. 


MFTES  OPERA F ION 


> 


MFTES  examines  a  TRW  report  by  first  determining  if  an 
individual’s  credit  profile  is  one  that  indicates  he  is 
already  bankrupt  or  in  the  process  of  bankruptcy.  Next  it 
determines  if  potential  bankruptcy  is  indicated  or  if  a 
superpayer  condition  exists. 

Anyone  who  is  bankrupt  or  going  through  the  bankruptcy 
process  is  considered  a  high  risk.  The  loss  of  financial 
well  beinq  combined  with  access  to  classified  information 
makes  any  such  individual  vulnerable  to  compromise.  The 
sale  of  classified  information  for  money,  in  order  to 
improve  financial  position,  is  a  circumstance  that  might  be 
avoided  if  the  bankruptcy  condition  is  identified  early 
enough  . 

the  same  reasoning  applies  to  potential  bankruptcy. 
Anyone  finding  himself  going  so  deeply  into  debt  that 
bankruptcy  could  become  a  reality  is  also  considered  a 
risk  for  potential  espionage. 

A  superpayer  is  someone  sitting  at  the  opposite  extreme 
tram  bankruptcy.  His  financial  position  appears  so  qood 
that  bankruptcy  is  never  a  question.  A  superpaver's 
char ac t er i s t i c s ,  however,  should  raise  anyone’s  eyebrows. 
His  credit  information  might  appear  flawless  showing  timely 
payments,  paid  off  debts  and  a  good  ratinq .  But  a 
comparison  of  a  superpayer’s  monthly  expenses  against  his 
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expected  monthly  income 


would  reveal  that  his  expenses 


exceed  his  income.  The  rationale  is  that  if  someone  is 
spending  more  than  it  appears  he  could  afford,  there  is  an 
external  source  of  income  which  the  individual  is  enjoying 
that  needs  close  examination.  [Ref.  1,  p.  8]  The 
superpayer  is  also  considered  a  high  risk. 

If  any  of  the  bankruptcy,  potential  bankruptcy  or 
superpayer  conditions  are  not  initially  identified  the 
MFTES  then  evaluates  the  individual’s  credit  record  for 
his  overall  financial  position.  A  weighting  scheme 
assigns  point  values  (weights)  to  each  of  the  different 
credit  remarks  found  in  the  credit  report.  These  weights 
are  used  to  indicate  the  individual’s  financial  position  on 
a  predefined  scale  that  ranges  from  Normal  to  Very 
Cr i tical . 

E.  CHARACTERISTICS  OF  FINANCIAL  PROFILE  ANALYSIS 

The  objective  of  financial  profile  analysis  was  to 
ascertain  what  financial  remarks  were  present  in  a  credit 
report  and  then,  based  on  the  number  and  combination  of 
those  remarks,  make  inferences  about  the  individual’s 
overall  financial  position.  [Ref.  1,  p.  61  The  financial 
profile  analysis  was  oriented  towards  discovering  two  kinds 
qt  signals,  whether  an  individual  was  stretching  beyond  his 


t i nanc i a  1 


means  and  was  a  candidate  for  bankruptcy,  or 


Fiqure  3.5  MFTtS  case  format 

Some  financial  information,  such  as  an  employee's  grade 
and  step  data,  is  not  contained  on  the  TRW  credit 
report  and  was  added  to  the  new  format  for  use  in 
determining  monthly  income.  This  specific  type  of 


salary  information  is  available  from  a  personnel  record 
or  database. 


F.  ANALYSIS  FOR  BANKRUPTCY 

The  first  step  was  to  determine  if  the  individual 
had  already  been  reported  bankrupt.  Bankrupt  accounts 
would  be  indicated  by  comments  starting  with  ’ BK ’ .  If 
an  individual  was  found  to  be  bankrupt  then 
administrative  action  is  left  to  the  discretion  of  the 


investigating  organization, 


Other  less  drastic  but 


still  serious  situations!  such  as  a  bankruptcy  petition 
filed  or  dismissed  might  also  be  indicated.  In  either 
case  such  an  occurrence  might  warrant  further 
investigation  of  this  individual.  CRef.  1*  pp .  B-IOJ 

If  no  bankruptcy  credit  remarks  were  identified  the 
second  step  was  to  check  the  credit  report  for  the 
potential  of  a  bankruptcy  occurring.  This  was  done  by 
examining  all  credit  remarks  in  the  report,  determining 
their  overall  weight  value  and  then  comparing  that 
value  to  a  previously  established  cut  off  level  for 
potential  bankruptcy.  If  the  overall  weight  value 
exceeded  that  cut  off  level  then  a  potential  for 
bankruptcy  was  indicated.  The  rationale  is  that  any 
individual  accumulating  a  large  number  of  derogatory 
accounts  such  as  delinguent  or  collection  accounts  is 
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though  semi-risky  business  venture  he  was  considering 


was  able  to  prevail  upon  a  credit  authorizer  that  he 
deserved  a  loan.  Since  there  was  no  sound  heuristic 
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placinq  himself  in  the  position  of  facing  potential 
bankruptcy . 

Another  indicator  of  potential  bankruptcy  is  the 
number  of  inquiries  shown  in  the  credit  report.  An 
inquiry  indicates  an  individual  has  approached  a  credit 
institution  to  borrow  money.  The  rationale  here  is 
that  if  several  inquiries  appear  in  the  report,  this 
shows  the  individual  was  in  desperate  need  of  money  and 
was  trying  hard  to  get  the  required  credit  by 
approachinq  as  many  institutions  as  he  could.  Almost 
always  this  character ist ic  is  an  indicator  of  an 
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impending  bankruptcy.  C Ref.  1,  pp .  10-123  The 
drawback  to  this  rationale  is  the  uncertainty  of  just 
how  many  inquiries  constitute  too  many.  For  example, 
one  individual  might  have  over  30  inquiries  in  a  given 
period  if  he  was  seeking  credit  for  some  legitimate, 


$ 

$ 


tryinq.  On  the  other  hand  another,  more  financially 
limited  individual,  desperate  for  cash,  might  have  only 
approached  up  to  eight  credit  institutions  before  he 


available  for  determining  when  too  many  inquiries 
became  a  derogatory  attribute,  the  inquiries  were 
worked  into  the  weighting  scheme  and  calculated  as  part 
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of  the  overall  weight  value.  Figure  3.6  illustrates 
the  flow  of  reasoning  used  by  MFTES  in  bankruptcy 
analysis . 
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CORRECTIVE  ACTION 


NEGA  riVE 
COMMENTS? 


TOO  MANY 
INQUIRIES? 


GO  TO  NEXT 
REPORT 


POTENTIAL  BANKRUPT 


G.  ANALYSIS  FOR  SUPERPAYER 

If  no  potential  bankruptcy  was  identified  then  the 
credit  report  was  examined  for  a  Superpayer  condition. 
In  this  case  an  individual’s  discretionary  monthly 
income  was  compared  against  the  monthly  payments  shown 
in  his  TRW  credit  record.  Monthly  discretionary  income 
was  derived,  as  shown  in  Figure  3.7  by  computing  the 
employee’s  disposable  income  minus  his  expenses. 

Disposable  income  was  determined  by  first 

calculating  an  employee’s  annual  income.  The  Annual 

Income  Figure  was  obtained  by  comparing  grade  and  step 
information  to  the  General  Schedule  table  which  is 
completely  modeled  in  MFTES. 

Second  a  determination  was  made  if  the  individual 
was  married  or  not.  If  he  was  married  then  the  Annual 
Income  Figure  was  increased  by  60  percent.  This  was  a 
heuristic  given  by  the  financial  expert  as  a  reasonable 
increase  in  income  that  a  working  spouse  (future 
program  refinement  must  make  a  distinction  between  a 
work inq  and  non-working  spouse)?  on  average,  will 
pr o v i de . 


DISCRETIONARY  INCOME  =  DISPOSABLE  INCOME  -  EXPENSES 

DISPOSABLE  INCOME  =  ANNUAL  INCOME  FIGURE  ( AIF  > 

FROM  GS  SCHED 

: IF  MARRIED  THEN  AIF  =  AIF  *  1.6 

sDETERMINE  TAXES 
IF  AIF  <  10,000 

(HEN  TAX  RATE  =  0*/. 

IF  AIF  <  30,000 

THEN  TAX  RATE  =  15*/. 

ELSE  TAX  RATE  =  28*/. 

NET  RATE  =  1  -  TAX  RATE 

=  AIF  *  NET  RATE 

EXPENSES  =  RENT  +  FOOD 

:RENT  FROM  ZIP  CODE/RENT  TABLE 
: FOOD  =  AIF  *  20V. 

MUNIHLY  DISCRETIONARY  INCOME  = 

DISPOSABLE  INCOME  -  EXPENSES 
12 

MUNIHLY  PAYMENTS  =  TOTAL  MONTHLY  BALANCES  DUE  *  10’/. 

I HEREFORE  IF: 

MONTHLY  PAYMENTS  >  MONTHLY  DISCRETIONARY  INCOME 

THEN  "SUPERPAYER" 

Figure  3.7  Monthly  Discretionary  Income 

Taxes  also  had  to  be  computed.  A  Tax  Rate,  0 
percent  it  the  annual  income  was  less  than  *10,000  or 
lb  percent  if  the  annual  income  was  less  than  *30,000, 
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of  the  average  annual  amount  of  money  an  American 


family  spends  on  food.  Monthly  discretionary  income 
then  became  Disposable  Income  minus  Expenses  divided  by 
12  months. 

The  employee's  total  monthly  payment  was  computed 
from  any  Balances  due  that  were  found  on  the  credit 
report.  The  Balances  due  for  each  account  were  summed 
together  and  then  multiplied  by  10*/..  This  rule  of 
thumb  from  the  financial  consultant  asserts  the 
average  family’s  monthly  payment  on  a  balance  due  will 


not  generally  exceed  10  percent  of  that  balance. 

If  the  individual’s  monthly  payments  shown  in  his 
TRW  credit  record  exceeded  his  d iscret ionary  monthly 
income  then  a  superpayer  condition  existed.  If  no 
superpayer  condition  was  determined  then  MFTES 
examined  the  individual’s  credit  report  for  an  overall 
weight  value. 

Another  conclusion  that  can  be  made,  and  which 
infers  a  potentially  detrimental  situation,  is  the 
accumulation  of  too  many  current  accounts.  The 
presence  of  several  current  accounts  connotes  two 
possible  situations.  First,  the  individual  might  be 
inadvertently  placing  himself  in  the  position  of 
becoming  overdrawn.  This  could  happen  if  he  suffers 
some  type  of  financial  setback  and  then  is  unable  to 
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fulfill  payment  obligations  on  his  many  accounts. 
Second,  a  large  number  of  current  accounts  with  low 
balances  and  high  credit  lines  suggests  the  individual 
could  use  his  combined  total  credit  available  to 
further  extend  himself  into  an  unsound  financial 
position.  Thus  the  number  of  current  accounts 
appearing  in  a  credit  record  was  worked  into  the 
weighting  scheme  and  calculated  as  part  of  the  overall 
weight  value. 


H.  ANALYSIS  OF  OVERALL  WEIGHT  VALUE 

If  there  was  no  indication  of  bankruptcy  or 
superpayer  then  some  other  measure  of  an  individual’s 
financial  position  was  needed.  In  order  to  fairly  and 
accurately  measure  the  effect  of  any  possible 
combination  of  credit  remarks  appearing  in  an 
employee’s  credit  record)  an  algorithm  was  needeo  that 
could  handle  the  complexity  of  all  comb inator i al 
possibilities  for  the  102  different  remarks.  The 
weighting  scheme  for  overall  weight  value  that  was  used 
in  the  MFTES  prototype,  was  chosen  to  be  continued 
because  of  its  ease  of  use,  effectiveness  and 
flexibility  for  future  upgrade. 

I  he  overall  weight  value  was  determined  by  relating 
any  remarks  found  in  the  report  to  a  predefined  point 
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account .  The  weights  assigned  to  each  remark  and  the 
current  cut  off  levels  are  also  shown.  The  weight 
assigned  for  each  current  account  is  10,  for  the 
delinquent  account  is  40,  and  for  the  collection 
account  is  200.  The  overall  weight  value  then  is  260 
((2  curr_accts  *  10)  +  <1  delinq_120  *  40)  +  (1 
coll_acct  *  200)).  A  conclusion  of  Very  Critical  is 
assigned  to  any  value  that  exceeds  the  Extremely  High 
Cut  Off  Level  of  200.  If  the  overall  weight  value  had 
exceeded  400  then  a  potential  bankruptcy  would  have 
been  indicated.  This  appears  reasonable  because  it 
shows  the  employee,  although  supporting  two  current 
accounts,  experiencing  difficulty  paying  off  other 
debts,  a  fact  that  might  be  significant  to  his  future 
financial  position.  This  also  shows  the  emphasis 
(large  weight  value)  given  to  the  appearance  of  a 


collection  account  in  the  credit  record. 


employee* ’555-55-5555’ ,2,9, single, ’93943’ ) . 
data(_,curr_acct,  386 , 285  ,  r , 1 86  *  2000  ,  1749, 86 , 0 ) . 
da  ta ( _ ,curr_acc t , 986 , 485 , r , 886 ,  0 , 0 , 0 , 0  ) . 
data(_,delinq_l 20 , 686 , 685 , r , 486 , 1 , 478 , 360 , 1 ) . 
data(_,col l_acct, 986 , _ , r , 786 , 599 ,0,0,0) . 

we i gh t_per _sta tus (curr_acct,10>. 
weigh  t_per _st at us ( de 1 i nq_ 1 20 , 40 ) . 
weight_per_status (col l_acct , 200 ) . 

PB_CUT_OFF_VAL  is  400. 
EXTREM£LY_HIGH_CUT_OFF_VAL  is  200. 
VERY_HIGH_CUT_OFF_VAL  is  170. 

HIGfTcUT_OFF_VAL  is  120. 

MODERATELY_H IGH_CUT_OFF_VAL  is  100. 
L0W_CUT_0FF_VAL  is  80. 

EXTREMELY_LOW_CUT_QFF_VAL  is  40. 

VERY  LOW  CUT  OFF  VAL  is  10. 


gure  3.8  Sample  case  with  weights  and  cutoff  levels 


IV.  EVALUATIONS,  CONCLUSIONS  AND  RECOMMENDATIONS 
A.  EVALUATION  RESULTS 

During  the  evaluation  phase  of  the  expanded  MFTE5 
all  cases  that  were  tested  were  real  credit  reports 


provided  by  PERSEREC . 


Each  case  was  manual lv 


translated  into  a  usable  format  before  being  run 
through  the  expert  system.  Of  the  75  cases  evaluated, 
six  required  additional  data  input  from  the  operator 
before  MFTES  was  able  to  arrive  at  a  conclusion.  These 
cases,  it  was  determined,  had  data  improperly  entered 
and  were  corrected  before  being  re-evaluated.  In  all 
cases  the  resulting  conclusion  from  MFTES  matched  the 


predetermined  judgment  of  the  testers. 


This 


duplicated  the  results  df  the  24  hypothetical  cases 
that  were  used  during  the  project’s  development. 

Additional  tests  were  required  to  more  thorough  lv 
evaluate  the  MFTES  conclusions  against  those  of  a  human 
financial  expert  not  previously  associated  with  the  75 
test  cases.  An  evaluation  period  with  a  financial 

consultant  for  this  continued  testing  had  been  arranged 
but  was  not  performed  because  of  extenuating 
circumstances.  Observations  made  during  testing  were: 

-  Some  of  the  weights  assigned  to  credit  remarks  were 
judged  to  be  slightly  higher  than  necessary  and 
caused  greater  overall  weights  to  show.  This  did 
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not  appear  to  appreciably  change  any  MFTES 


conclusions  but  a  ’fine-tuning’  of  the  weights 


would  make  the  system  more  accurate. 


-  The  run-times  experienced  during  the  analysis  of 


each  case  were  observed  to  be  ranging  from  3  to  as 


much  as  23  minutes  per  case.  The  extreme  was 


caused  by  three  factors, 


First,  the  program 


involved  considerable  depth  and  breadth  in  its 


search  strategies.  Second,  the  Arity  expert  system 


shell,  which  had  exceeded  its  limits  in  stack  space 


several  times  during  development,  was  probably 


reachir'  its  limits  once  again.  Third,  the  9  Mhz 


microcomputer,  on  which  MFTES  was  installed  was  too 


slow . 


B .  HARDWARE  AND  SOFTWARE  REQUIREMENTS 


The  MFTES  was  initially  developed  and  set  up  to  run 


on  an  9  Mhz  IBM  PC,  or  compatible,  with  640K  RAM  and  a 


hard  disk  (minimum  10  meg  .recommended  for  secondary 


storage).  This  was  judged  inefficient  however  because 


of  the  large  size  of  the  program  and  the  inherent  time 


delays  that  causes. 


In  the  latter  stages  of 


development  a  3  megabyte  virtual  disk  was  used  to  run 


the  program.  MFTES  consumed  appro x i ma te 1 y  2.5  megs  of 


the  virtual  memory  available  and  was  significantly 
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taster.  For  example*  the  conclusion  in  a  NORMAL  case 
was  reached  in  3  to  5  minutes*  while  usinq  virtual 
memory,  and  took  3 0  to  30  minutes  without  virtual 
memory.  In  order  to  obtain  more  efficient  run  times  a 
16-30  Mhz  CPU  is  recommended. 

I  he  software  required  to  work  with  the  proqram 
(Arity  Expert  System)  is  available  off  the  shelf.  No 
special  traininq  requirements  are  considered  necessary 
other  than  basic  familiarization,  dependinq  on  the 
user’s  computer  literacy.  Operation  of  MFTES  is  user 
friendly  and  driven  by  the  interface. 

C.  SUCCESSES 

The  proqram  was  successful  in  incorporating  all 
credit  remarks  used  by  TKW  and  in  developing  the 
necessary  rules  for  producinq  a  valid  conclusion  about 
an  employee’s  financial  position.  In  other  words  it 
successfully  fallowed  the  documentary  trail  on  an 
employee’s  credit  report  and  made  an  inference  about 
his  potential  risk. 

side  benefit  is  that  the  proqram  could  also  be 
used  as  a  traini nq  aid  for  potential  credit  record 
analysts.  (he  explanation  facility’s  display  of  how 
conclusions  were  reached  is  an  excellent  learning  tool. 


D.  LIMITATIONS  AND  FUTURE  IMPROVEMENTS 

The  MFTES  is  limited  to  processinq  a  sinqle  record 
at  a  time.  This  must  be  improved  if  the  scrutiny  ot 
thousands  of  personnel  holdinq  security  clearances  has 
any  chance  of  becominq  efficient.  A  batch  processinq 
proqram  that  can  review  larqe  numbers  of  records  and 
kick'  out  those  displayinq  normal  attributes  would  be 
oeneficial.  Such  a  program  could  be  used  as  a  filter 
tor  the  expert  system)  greatly  reducinq  the  number  ot 
reports  that  would  be  forwarded  to  MFTES  for  analysis. 
Additional  rules  can  be  added  to  improve  the  level  of 
expertise  provided  by  a  financial  expert. 

Multiple  complimentary  types  ot  expertise  can  be 
added  to  help  provider  broader  analysis  profiles. 
Examples  include  usinq  medical  and  law  enforcement 
expertise  to  develop  psychological  and  criminal 
profiles.  The  expert  system  could  provide  conclusions 
specific  to  the  type  of  profile  desired  or  to  an 
overall  combination  of  all  types  available. 

An  interface  can  be  developed  that  pipes  I RW  and 
DoU  data  directly  into  the  expert  system.  This  could 
be  extended  to  cover  any  external  database  that  the 
expert  system  required  data  from  in  order  to  complete 
its  calculations.  Examples  include  the  qrade  and  step 
information  for  monthly  pay  calculation  and  zip  codes 
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with  their  associated  rental  expenses  tor  rent 
calculation.  Ihis  kind  of  improvement  would  eliminate 
the  extra  step  that  now  occurs  in  translating  records 
to  a  more  usable  format  before  analysis. 

I  he  user  interface)  although  straightforward  and 
easy  to  use,  is  plain  and  could  be  improved  by  addino 
color,  graphics  and  additional  explanation  features. 
An  on-line  help  facility  could  further  enhance  use. 
Implementation  of  voice  interaction  throuqh  a 
Keytronics  keyboard  could  facilitate  an  analyst’s  use 
of  the  expert  system’s  explanation  module.  The  analyst 
could  then  more  naturally  ’pose’  the  questions  he 
wanted  answered  without  havinq  to  worry  about  exact 
keyboard  entry. 

Ihe  expert  system  can  have  incorporated  the  ability 
to  monitor  TRW  data  longitudinally  for  the  same 
sub  iects.  This  would  provide  a  capability  tor 
comparisons  of  individuals  and  performing  trend 
ana  lysis. 

the  overall  weight  value  calculation  aloorithm 
could  be  revised  for  improved  accuracy  and  efficiency. 
Run-time  efficiency  as  well  as  stack  and  storaqe 
problems  might  also  be  improved  with  a  newer  version  of 
the  Arity  software. 
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Hinaliyf  more  testinq  needs  to  be  done.  More  real- 
world  cases  should  be  evaluated  with  different  analysts 
tor  comparison.  Only  a  thorouqh  testinq  of  MFTt£S  would 
ensure  weaknesses  were  properly  identified.  Possibly  a 
benchmark  proqram  desiqned  by  financial  analysts  who 
currently  perform  credit  record  screeninq  could  be 


administered . 


APPENDIX  A  -  SOURCE  CODE 
This  appendix  contains  the  source  code  for  the 
expanded  MFTES.  This  includes  the  front  end  file 
(CRD13.ARI),  the  calculations  file  (CRD13.CAL),  the 
rules  file  (CRD13.RUL),  and  the  taxonomy  file 
(CRD13.TAX).  The  source  code  was  included  because  it 
was  felt  necessary  to  provide  a  hardcopy  for 
documentation  and  maintenance,  and  to  give  anyone  who 
wanted  a  convenient  and  complete  way  of  examininq  the 
program's  structure. 

It  is  recognized  that  no  one  will  probably  input 
the  code  from  this  documentation.  Arrangements  can  be 
made  to  obtain  a  copy  of  the  software  throuqh  Prof. 
Sivasankaran  or  Lcdr .  Salazar  at  the  Naval  Postgraduate 
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/*  CRD13.ARI  (FRONT  END  FILE)  */ 

/*  Ihis  section  of  code  starts  the  record  readinq 
process.  unce  a  record  has  Deen  analyzed  the 
information  is  discarded  in  favor  of  another  record  of 
exit.  */ 

star  t 

nl ,  repeat  , 

els, 

tmove (5,10), 
mC ( 50 ,  42  )  , 
tmove( 15,10), 

MC  (  50 , 42  )  , 
tmove( 10,10), 
put ( 7 ) ,put ( 7 ) , 

write( ’  Input  file  to  be  interpreted:  ’), 
read ( Name  of _  f i 1 e ) , 
asser ta ( current  _case ( Name_of _f i 1 e )  > , 

[Name  of  file], 

t  !  run  once  ! 3 , 

write(*Would  you  like  another  consultation  ?*), 
read ( X ) ,  gc ( f ul 1 ) , 
abolish (data/10) , abolish! inq/2 ) , 
abo 1 ish ( emp loyee_ in_process/4 ) , 
abo 1 ish ( current  _case/ 1 ) , 
abolish (balance^due/ 1 ) , 
abo 1 ish ( to tal_monthly_ expenses/ 1 ) , 
nl  ,  X  \=  yes  ,  X  \=  y , 
els, 

tmove (8,33), 
wc ( 15,42) , 
tmove( IS, 33) , 
wc ( 1 5 , 42 ) , 
tmove (10,35), 
put ( 7 ) , put ( 7 ) , 
write!’:  Quittinq(’), 
tmove ( 20 , 0 ) . 


run  once 


els, 

tmove ( 5 , 10) , 
wc ( 50 , 42 ) , 
tmove (15,10), 
wc ( 50 , 42 ) , 
tmove (10,10), 
wa( 79, 137) , 


'.r./.A'/./.-vr,  r.y 


pu  t  ( 7 ) , pu t ( 7 ) , pu  t ( 7 ) ,  put ( 7 )  , 

writer  W  U  R  K  I  N  G  , 

♦  «/e<  17, 10)  , 

/*  read  <  V ) ,  */ 

root  instance ( perserec , I ,N ) , 

eva 1 ( cone luded , cone  1  us i on  i nf o , I , Va 1 , true , CF )  , 
fail. 

run  once  : -  n  1  . 


/*  CRD  13 . CAL  (CALCULATIONS)  */ 

/*  Ihis  section  of  code  includes  computations  as  layed 
out  in  the  rules.  Each  module  retrieves  a  rule- 
specitied  piece  of  data  for  calculation.  */ 

qet  ssn< I , personal , ssn, CSSN/ 1 .01 ) 

emp loyee  <  SSN , GS , SAL_STEP ,M  STATUS, ZIP) ,gc(ful 1 ) . 

/*  This  module  for  future  use  in  requesting  records  by 
SSN . 

write! ’Input  Social  Security  of  Employee  to  be 
screened : ’ ) , 
wc  a ( 9 , '#,74) , put ( 7 ) , 
read ( SSN ) , 

emp loyee ( SSN , SS , SAL  STEP , M  STATUS, ZIP) , 

assert ( emp loyee ( SSN , GS , SAL  _STEP,M_ST  ATUS , Z I P ) >  .  */ 


get  m  s tatus ( I , persona  1 , m_s ta tus , L M_ST ATUS/ 1.01):- 
emp loyee ( SSN , GS , SAL _ STEP ,M_STATUS,ZIP) . 


qet  z ip ( I , per sona 1 , z i p , C Z I P/ 1 . 0 1 ) 

emp 1  a yee ( SSN , GS , SAL _ STEP , M  STATUS, ZIP) . 


/*  The  19SS  General  Schedule  for  federal  employees  */ 

gs  sal  t ab 1 e ( 1 , 1 , 90  1  1  )  . 
gs_sal_table< 1 ,2, 10139) . 
gs_sal  tab  1 e ( 1 , 3 , 10465 ) . 
gs_sal_table( 1 ,4, 10791  )  . 
gs_sal_table( 1,5, 11117) . 
gs_sa 1 _tab le ( 1 , 6 , 1 1 309 ) . 


gs_sai  tab le ( 1 , 7 , 1 1631 ) . 
gs  _sal _tab le ( 1 , B , 1 1 955 ) . 
gs.sal _ tab le ( 1 ,9, 1 1970 ) . 
qs_sal_tab la( 1,10, 12275) . 
gs_sa 1  table(2, 1 , 11032) . 
gs_sal_table(2,2, 1 1294 ) . 
gs_sa 1 _table(2,3,l 1659 ) . 
gs_sal_table<2,4, 11970) . 
gs_sal_table(2,5, 12103) . 
gs_sa l_table<2,6, 1 2459  > . 
gs_sa 1  tab  1 e ( 2 , 7 , 12815 ) . 
gs_sal_table<2,8, 13171 ) . 
gs_sal  tab le ( 2 , 9 , 13527 ) . 
gs_sa 1 _ tab le ( 2 , 10, 13883) . 
gs_sal _tab le ( 3,1, 12038 ) . 
gs_sal_ table <3,2, 12439) . 
gs_sal_table<3,3, 12840 ) . 
gs_sal_tab le <  3,4, 1324 1 ) . 
gs_sal_table(3,5, 1 3642 ) . 
gs_sal_table<  3,6, 14043) . 
gs_sal_table(3,7, 14444 ) . 
gs_sa l_tab le ( 3 ,8 , 14845 ) . 
gs_sal_table(3,9, 15246 ) . 
qs_sal  tab le ( 3,10, 15647 ) . 
gs_sal_table(4, 1 , 13513) . 
gs_sal _tab le ( 4 , 2 , 13963 ) . 
gs_sal_table(4,3, 14413) . 
qs_sal_table(4,4, 14863) . 
gs_sal_table<4,5, 15313) . 
gs_sal _tab le (4 ,6 , 15763 ) . 
gs_sal_table(4,7, 16213) . 
gs_sal_table<4,8, 16663) . 
gs_sal_table<4,9, 171 13) . 
qs_sal_table(4, 10, 17563) . 
gs_sal_table<5, 1 , 15118) . 
qs_sal  table (5, 2, 15622) . 
gs_sal_table<5,3, 16126)  . 
qs_sal_table<5,4,16630) . 
gs_sal_table(5,5, 17134) . 
gs  _sa 1 _tab le ( 5 , 6 , 1 7638 ) . 
gs_sal_table<5,7, 18142) . 
gs  sa 1 _ tab le<  5 , 8 , 18646  )  . 
gs_sal_table<5,9, 19150) . 
gs_sa 1 _ tab le ( 5 , 10, 19654) . 
gs_sal_table(6, 1 , 16851 ) . 
qs_sal _table(6,2, 17413) . 
qssal _table(6,3, 1 7975 ) . 
qs_sal_table(6,4, 18537 ) . 
gs_sal_table(6,5, 19099 ) . 
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gs_sal_ 
gs_sal _ 
gs_sal _ 
gs_sa I _ 
gs_sal 
gs_sa 1 _ 
gs_sal_ 
gs_sa 1 _ 
gs_sa 1 
gs_sal 
gs_sa 1 _ 
qs_sa 1 
gs_sa 1 
gs_sal _ 
gs_sal_ 
qssa  1 
gs_sa 1 
gs_sa 1 , 
gs_sa 1 
gs_sal_ 
gs_sal . 
gs_sal 
gs_sal 
gs_sal 
gs^sa 1 
qs_sal 
gs_sal 
qs^sal 
gs_sal 
gs_sal 
gssal 
qs_sal 
gs_sa I 
gs  _s a  1 
gs_sa 1 
gs_sa 1 
gs_sa 1 
gs_sa  1 
gs_sa 1 
as  _sa 1 
gssa  1 
gssa i 
gs_sa 1 
gs_sa 1 
gs_sal 
gs_sa  1 
gs_sal 
gs  _sa 1 
qssa  1 


tab  le  ( 6 , 6 , 19661 ) . 
table(6,7,20223) . 
tab  1 e ( 6 , 8 , 20785  )  . 
table<6,?,21347) . 
tab  1  e  (  6  , 10,21909) . 
tab  let  7, 1 , 18726) - 
t  ab 1 e ( 7 , 2 , 1 9350 ) . 
tab le<7 ,3, 19974) . 
tab  1 e ( 7 , 4 , 20598 ) . 
tab  1 e ( 7 , 5 , 21222 ) . 
table(7,6,21 846 ) . 
tab le ( 7 , 7  , 22470 ) . 
tab  le  ( 7 , 8  , 23094 ) . 
tab  le  <  7 , 9 , 23718  > . 
tab le( 7 , 10,24342) . 
tab  1 e ( 8 , 1 ,20739)  . 
tab le ( 8 , 2 , 21430 ) . 
table(8,3,22121 )  . 
tab le < 8 , 4 , 22812 ) . 
tab le ( 8 , 5 , 23503  )  . 
tab le ( 8 , 6 , 24 1 94 ) . 
tab le ( 8 , 7 , 24885 ) . 
tab le ( 8 , 8 , 25576 ) . 
tab le ( 8 , 9 , 26267 ) . 
tab  1 e ( 8 , 10,26958) . 
table (9, 1 ,22907) . 
tab le ( 9 , 2 , 2367 1 ) . 
t ab 1 e < 9 , 3 , 24435 ) . 
tab le ( 9 , 4 , 25199 ) . 
tab le ( 9 , 5 , 25963 ) . 
table (9,6, 267727) . 
table(9,7,27491  )  . 
tab le < 9 , 8 , 28255 ) . 
tab le ( 9,9, 2909 1 ) . 
tab le  <  9 , 10,29783)  . 
tablet  10, 1 ,25226 )  . 
tablet  10,2,26067) . 
tablet  10,3,26908) . 
tablet  10,4,27749) . 
tablet  10,5,28590)  . 
tablet  10,6,29431 )  . 
tablet  10,7,30272) . 
tablet  10,8,31 113). 
tablet  10,9,31954) . 
tablet  10, 10,32795) 
tablet  11,1 ,27716) . 
'tablet  1 1 ,2,28640) . 
tablet  1 1 ,3,29564) . 
tablet  1 1 ,4,30488) . 
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gs_sal_table< 11 ,5,31412) . 
gs_sal_t ablet 1 1 » 6 ,  32336 )  . 
gs_sal_t ablet 1 1 )7i 33260 ) . 
gs  sal_t ablet 1 1 *8, 34184 ) . 
gs_sa 1 _ tab let 11 ,9,351 08 )  . 
gs_sal_tablet 1 1  , 10t 36032 ) . 
gs_sal_t ablet 12 , 1  *  33218 ) . 
gs_sal_table( 12)2, 34325 ) . 
gs_sal_table( 12,3, 35432 ) . 
gs_sa 1 _ tab  1 e ( 12,4,36539)  . 
gs_sa 1 _  tab  let  12,5,37646) . 
gs  _sa 1 _ t ab let  12,6,38753) • 
gs_sal_t ablet  12,7, 39860 ) . 
gs_sa 1 _ tab le t 12,8, 40967 )  . 
gs_sa 1 _  t ab let  12,9, 42074 ) . 
gs_sa 1 _t ab let  12, 10,43181 )  . 
gs_sal_t ablet  13, 1 , 3950 1 > . 
gs__sa  1  _  tab  let  13,2, 408 18). 
gs_sa  1  __  tab  let  13,3, 42 135). 
gs_sa 1 _tab le t 13,4,43452) . 
gs_sa 1 _tab le < 13,5,44769) . 
gs_sal_table< 13,6,46086) . 
gs_sal_table< 13,7, 47403 ) . 
gs_sal_table< 13,8,48720) . 
gs_sal_table( 13,9,50037) . 
qs_sal_t ablet  13, 10,51 354 )  . 
gs_sa I_table<14,l, 46679 ) . 
gs_sa 1 _ t ablet  14,2, 48235 ) . 
gs_sal_tab le < 14,3,49791 ) . 
gs_sal _t ablet  14,4, 51347 ) . 
gs_sal_tablet 14,5,52903) . 
gs_sal_tablet 14,6,54459) . 
gs_sa 1 _  t ablet  14,7, 560 15). 
gs_sa 1 _tab le t 14,8,57571 )  . 
gs_sa 1 _ t ablet  14,9, 59127 ) . 
gs _sa 1 _ t ab let  14, 10,60683)  . 
gs_sal_t ablet  15, 1 , 54907  >  . 
gs_sa 1 _ tab  1 e ( 15,2,56737) . 
gs_sal_t ablet  15,3,58567) . 
gs_sal_t ablet  15,4,60397) . 
gs_sal  __tab  let  15,5,62227)  . 
gs_sa 1 _ tab  1 e ( 15,6,64057) . 
gs  sal__t ablet  15,7, 65887  )  . 
gs_sal_t ablet  15,8, 67717 )  . 
gs_sal_t ablet  15,9, 69547 ) . 
gs_sa l_t ablet  15, 10, 71377 ) , 
gs_sal_t ablet  16, 1 , 64397 )  . 
gs_sal_t ablet  16,2, 66544 )  . 
gs_sal_table< 16,3,68691 ) . 
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gs_sa 1 _tab 1 e < 16,4,7083B) . 
gs_sa 1 _tab 1 e (  Hi, 5, 72500) . 
gs_sal_table< 16,6, 73660 ) . 
gs_sal_tabie( 16,7, 75765 )  . 
gs_sal_table( 16,8, 77870  )  . 
gs_sa 1 _tab 1 e ( 16,9,79975) . 
gs_sal_table< 17, 1 , 73958 ) . 
gs_sa 1 _tab 1 e ( 17,2,76423) . 
gs_sal_table( 17,3, 78888 ) - 
gs_sa l_table< 17,4,81353) . 
gs_sal_table< 17,5,83818) . 
gs_sal_table( 18, 1 , 86682 ) . 
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get_coll_acct_n(I,coll_acct,coll_acct_n, [COI_L_AC- 
CT_N/ 1.0]):- 

f indal 1 (col l_acct ,data(_,col l_acct )  ,L)  , 
1  eng  th ( L , COLL_ACCT_N ) , gc ( f u 1 1  )  . 
get_d_60_n< I , d_60 , d_60_n , CD_60_N/ 1.0]):- 
f  i  ndal  1  ( del  i  nq_60  ,data(_,deli  nq_60 
length ( L , D_60_N ) , gc ( f u 11). 

get_d_60_a ( I , d_60 , d_60_a , CD_60_A/1 .0] > :- 

f i ndal 1 ( Amount ,data(_,deli nq_60  Amount ,_,_),- 

A )  , 

total _d_60_a ( A , D_60_A ) , gc ( f  u 1  1  ) . 
total_d_60_a< C ] ,0) !. 
total ~d_60_a( CA1L] ,D_60_A) :- 

to ta 1 _d_60_a ( L , Sub  to t a  1 ) , 

D_60_A  is  Subtotal  +  A. 

get_d_9Q_n ( I , d_90 , d_90_n , l D_90_N/ 1 .0] > :- 

findall(deli nq_90 , data<_, deli nq_ 90, , L ) , 
length < L , D_90 _N ) , gc ( ful 1 ) . 
get_d_90_a ( I , d_90 , d_90_a , C D_90_ A/ 1.0]):— 

f i nda 1 1 ( Amount ,data(_,delinq  _90  Amount , _ , _ )  , - 

A  )  , 

total  d  90_a ( A , D_90_A ) , qc ( f u 1 1 ) . 
to ta 1 _d_90_a ( C ] , 0 ) : -  !. 

total  _d_90_a(  CA'.L]  ,D_90_A)  :- 

to ta I _d_90_a < L , Sub to ta 1 ) , 

D  90  A  is  Subtotal  +  A. 


get  _d_ 1 20_n  < I , d_ 1 20 , d_ 1 20_n , CD_120_N/i . 0] ) 
f l nda L 1 ( del inq_ 120 , data (_, de 1 inq_ 1 20 - 

L  )  , 

length (L, D_120_N)  , gc<ful  1  )  . 
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get_d_120_a ( I , d_ 1 20 , d_ 1 20_a , CD_120_A/1 .03):- 
f i nda 1 1 ( Amount ,data(_idel inq_l 20, Amount , _ , _ 
,  A  )  , 

total_d_120_a(A,D_l 20 _ A ) , gc i f u 1 1 ) . 
total_d_l 20_a (  C  3 , 0 )  :  -  !. 
total _d_120_a( CA I L3 , D_120_A ) 

total_d_120_a(L, Sub  total )  , 

D_120_A  is  Subtotal  A. 

get _d  _ 1 50_n ( I , d_ 1 50 , d _ 1 50_n , t D_ 1 50_N/ 1 . 0 3  > : - 
f i nd a  1 1 ( del i nq _ 1 50, data(_, deli nq_l 50, 

L  )  , 

length(L,D_l 50 _N )  , gc ( f u 1  1  )  . 
get  _d_ 1 50_a ( I , d _ 1 50 , d_ 1 50_a , C D_ 1 50_A/ 1 . 0 3 )  : - 
f i nda 1 1 ( Amount ,data(_,del inq_l50, Amount , _ , . 
,  A )  , 

total_d_l 50_a ( A , D_ 1 50_A )  , gc ( f u  1  1  )  . 
to ta 1 _d_ 1 50_a < C 1 , 0 ) : -  !. 
total _d_ 1 50_a ( C  A  !  L  3 , D_ 1 50_A  > 

to ta 1 _d_ 1 50_a ( L , Sub  to ta 1 ) . 

D_150_A  is  Subtotal  +  A. 

get_d_ 1 S0_n ( I , d_ 1 80 , d_ 1 80_n , CD_180_N/1 .03):- 
f i ndall(deli nq _1 80, data(_, deli nq_l 80, 

L  )  , 

1  eng th  <  L , D_ 1 80_N ) , gc ( f ul 1  )  . 
get_d_180_a( I , d_ 180 , d_ 1 80_a , C D_ 1 80_A/ 1.03):- 
f i nda 1 1 ( Amount , data(_, deli nq_l 80, Amount , _ , . 
,  A )  , 

total_d_l 80_a ( A , D_ 1 80  _  A ) , gc  <  f u 1  1  )  . 
to  t  a  1  _d_  1 80_a  (  C  3 , 0  )  :  -  . 

total _d_l 80 _a( CAIL3 ,D_1S0_A) 

total_d_l 80 _ a ( L , Subtotal > , 

D_180_A  is  Subtotal  +  A. 

ge t  _c  _w_60_n (  I , c  _w_60 ,c_w_60_n, C  C_ w_60_N/ 1  .03)  :  - 
findal 1 (c_w_60,data( _ , c_w_60 ,  L ) , 

1  eng  tb(L,C_w_60_N) , gc  <  f u  1 1  )  . 
qet_c_w_60_a(  I  ,c_w_60,c_w_60_a,  HC_w_60_A/l  .03  )  :  - 
findal 1 ( Amount , data ( _ , c_w_60 Amount, _,_) , A 
total  _c_w_60_a(A,C_w_60_A)  ,gciful  1  )  . 
to  t  a  1  _c  _w_60_a  (  C  3 , 0  )  :  -  . 

total_c_w_60_a( C  A  1 L  3 ,C_w_60_A) 

total_c_w_60_a(L, Sub  total ) , 

C  w  60  A  is  Subtotal  +  A. 


get  _c  _w_90__n  (  I  ,  c_w_90  ,  c  _w_90_n  ,  [  C_w_90_IM/  1  .03) 
f i nda 1 1 ( c_w_90 , data ( _ , c_w _90 ) ,  L  > , 
1  eng th ( L , C_w  90  N),gc(full). 


. ’Aj*.  l*.  : 


get  _c  _w_90_a ( I ,c_w_90»c_w_90_a»  CC_w_90_A/l .0] )  :- 
f i ndal 1 ( Amount , dat a ( _ ,c_w_90 »_>_»_  »  _  »  _  »  Amount  »  _  j  _ )  *  A )  » 
total_c_w_90_a(A , C_w_90_A ) , gc ( f ui l ) . 
to tal _c _w_90_a ( C 3 » 0 ) : -  !. 
total_c_w_90_a<  C  A  1  L  3  »C_w_90_A)  :- 
to ta 1 _c_w_90_a ( L , Sub  to ta 1 ) , 

C_i/m_90_A  is  Subtotal  +  A. 

get_c_w_l £0_n ( I , c  _w_ 1 20  » c_w_ 1 20 _n ,CC_w_l20_N/l .0] ) :  — 
findall(c_w_l 20  ,data(_»c_w_l20>_,_,_»_,_>_i_»_) » L ) » 

1  eng  th (L(C_w_l 20 _N )  , gc ( f  u 1 1  ) . 
get_c_w_l 20 _ a ( I ,c_w_120,c  1 20 _ a , [ C_w_ 120_A/1 .0] )  :  - 

f i nda 1 1 ( Amount ,data(_,c_w_l 20  »_»_»_»_»_»  Amount , _  »  _ ) , A ) , 
total_c_w_l 20 _ a ( A , C_w_ 120_A) , gc ( f  u 1 1 ) . 
to tal _c_w_ 120  a ( C 3 , 0 ) : -  !. 

to  ta  1  _c  _w_120_a  (  C  A  L3  ,  C_w_  120_A  )  :  - 
to ta 1 _c _w_ 1 20_a ( L » Sub  to t a  1  )  , 

C_w_ 120_A  is  Subtotal  +  A. 

get_c_w_l 50 _n  < I , c_w_ 1 50 , c  _w_ 1 50 _n , C  C_w_ 1 50 _N/ 1.03):- 
f i nda 1 1 ( c_w_ 150 , data ( _  >  c  _w_ 1 50  >  L ) , 

length <L , C_w_ 1 50_N ) , gc ( f u 1 1 ) . 
get  _c_w_l50_a( I , c_w_ 150 , c_w_ 150  a , C C_w_ 1 50_A/ 1.03):- 
f i nda 1 1 ( Amount , data  <  _ , c_w_150 i _ , Amount ,_,_), A )  , 
total_c_w_150_a ( A , C_w_ 1 50_A ) ,  gc ( ful 1 ) . 
to tal _c _w_150_a ( C 3 , 0 ) : -  !. 
total _c_w_150_a ( C  A  I L  3 , C_w_ 1 50_A )  : - 
to ta 1 _c_w_ 1 50_a ( L i Sub  to ta  1  )  * 

C_w_150_A  is  Subtotal  +  A. 

get _c_w_ I80_n ( I ,c_w_l 80  , c  _w_ 1 80 _n , C  C_w_ 1 80_N/ 1  .03)  :  - 
f i ndal 1 <  c_w_ 1 80 ,data(_jc_w_l 80  <L) , 

leng th < L , C_w_ 1 80_N ) , gc ( f u 1 1 ) . 
get_c_w_ 1 80_a ( I ,c_w_lS0,c_w_180_a»CC_w_l 80_ A/ 1.03):- 
f i nda 1 1 ( Amount , data ( _  »  c  180  Amount , _ , _ )  , A ) , 

total_c..w_!  80  _  a  (A,C_w_180_A)  »  gc ( f  u  1 1  )  . 
to ta 1 _c _w_ 1 80_a ( C 3 , 0 ) : -  !. 

total_c_w_180_a( CAIL3 ,C_w_180_A) : - 
total_c_w_l 80 _ a (LiSubtotal ) , 

C_w_180_A  is  Subtotal  +  A. 

get_pdbydlr_n(  I  ,pdbydlr,pdbydlr  n , C  PDBVDLR_M / 1  .03  )  :  — 
findall(pdbydlr,data(_ipdbydlr, ,  L ) i 
length(L»PDBYDLR_N) ,gc(ful 1 ) . 
get_pdbydlr_a(  I ,pdbydlr ,pdbydlr_a, CPDBYDLR_A/1 .03 )  :  - 
f i nda 1 1 ( Amount ,data(_ipdbydlr»  Amount , _ , _ )  , A ) , 

total  _pdbydlr_a(A,PDBYDLR_A) , gc ( f  u  1  1 )  . 
to ta 1 _pdbyd 1 r _a ( C 3 , 0 ) : -  •. 

total_pdbydlr_a( CAIL3 ,PDBYDLR_A) :- 


w: 


total _pdb yd lr_a(L,  Subtotal  )  , 

PDBYDLR_A  is  Subtotal  +  A. 

get  _su i t _n ( I , su i t , su i t _n , C  Sui t _N/ 1 .0] ) :  - 
f indal 1 (suit idata(_,suit ,L 
1  eng th ( L , Su i t _N ) , gc  <  f u  1 1 )  . 
get_.su  it_a(I,suit,suit_a,CSuit_A/1.0]):- 
f i ndal 1 ( Amount ,data<_, suit, Amount 
tatal_suit_a(A, Su i t _A  > , gc ( f u 1 1 ) . 
to tal _sui t_a < C 3 , 0 ) : -  l. 
total.  ,suit_a( C A : LD , Su i  t  _A ) :  - 

total_suit_a(L, Subtotal ) , 

Suit_A  is  Subtotal  +  A. 

get_bk_vals< I , trw,bk_vals, [ BK_VALS/ 1.03):- 
bk_7_fi le( BK_7 ) , 
bk_ 1 l_f i 1 e <  BK_ 1 1 ) , 
bk_13_.fi  le  (  BK  ~1 3  )  , 
bk_7_d isc ( BK_7_DISC ) , 
bk_7_dism( BK_7_D ISM) , 
b  k  _ 1 3_comp  <  COMP ) , 

BKVALS  is 

BK_7+BK_1 1 +BK_ 1 3+BK_7_D I SC  +  BK  _7_D I SM+COMP , 
gc ( ful  1  )  . 

bk_7_f i le( BK_7 ) 

(data! _ ,bk _ 7 _ f i le, _ ,  _ , _ * _ )  , 

BK_7  is  200)~;  BK_7  Is  0. 

bk_ 1 l_f l le(BK_l 1 ) :- 

( data ( _ ,bk_ll_file, , 

BK_ 1 1  is  200)  ;  BK_ 1 1  is  0. 

b  k  _ 1 3_f i 1 e ( BK_ 1 3 ) 

(data(_,bk_13_fi  le, _ , _ , _ ,  _ , _ , _ , _ ,  _ )  , 

BK_ 1 3  is  200)~;  BK_ 1 3~ i s  0. 

bk_7_disc(BK_7_DISC) 

(data  <_,bk_7_disc, , 
BK_7_D ISC  is  200 ;  ;  BK_7_DISC  is  0. 

bk_7_dism(BK_7_DISM)  :  - 

( data ( _ , bk _ 7_dism, _ _ , _ , _ )  , 

BK_7_D ISM  is  200)  ;  BK_7_DISM  is  0. 

bk_13_comp ( COMP ) : - 

(data(_,bk_13_comp,_,_,_,_,_,_,_,_), 
COMP  is  200)  ;  COMP  is  0. 


member ( X , C  X i _]  )  . 

member ( X , C  _ ! V  3 ) : -  member  <  X , V  >  . 

show_bk _f i 1 e_message (T_bk_vals,Bk_vals> :  - 
nl , put ( 7 ) , wr i te ( ’ The  person  is  bankrupt.’), 
bk_val_per_status(T_bk_vals,Bk_vals). 


show_bk_d i sc_message <T_bk_vals,Bk_vals> :  - 
nl , put ( 7 ) , 

write! ’The  person  is  a  discharged  bankrupt.’), 

bk_val_per_status(T_bk_vals,Bk_vals). 

show_bk_d i sm_message (T_bk_vals,Bk_vals> :  - 
n I  , put ( 7 ) , 

write!’ The  bankruptcy  petition  was 

d i smi ssed/comp leted . ’ )  , 

bk _va 1 _per _sta tus (T_bk_vals,Bk_vals)  . 

no  t_bankrup t_case ( Bk _Va 1 s ) :  — 

bk_val_per_status( not_bankrupt , Bk_Vals ) . 


/*  Alternate  method  of  searching  for  Bankrupt  credit 
remarks  that  may  be  modified  in  the  future. 

-  look_for _bk_remar k ( BK  VALS ) ; BK  VALS  is  0.  - 


look_for_bk_remark ( BK_VALS ) : - 

data ( _ , CRED I TREMARK  _ )  , 

case! CCREDITREMARK=bk_7_f i le->VAL  is  200, 
CREDITREMARK=bk_l l_f i le->VAL  is  200, 
CREDITREMARK=bk_13_f i le->VAL  is  200, 
CRED I TREMARK=b  k_7_d  i sc-> VAL  is  200, 
CRED I TREMARK  =  bk  _ 1 1 _f i 1 e-> VAL  is  200, 
CRED I TREMARK  =  bk  _7_d i sm- > VAL  is  200, 
CRED I TREMARK =bk  _ 1 1 _f i le->VAL  is  200, 
CRED I TREMARK  =  b k  _ 1 3_f i 1 e->VAL  is  200, 
CRED I TREMARK=bk _ 1 3_comp->VAL  is  2001 
val  is  03  >  ,  !  , 

if thene 1 se < VAL=200 , BK  VALS  is  200, next  bk 


search  ) 


next_bk_search:- 

data(_, CRED I TREMARK ,  !  , 
get_bk_vals< I ,trw,bk_vals, C  BK_VALS/ 1.0]). 
!  !  check_bk_f i le! Temp_BK_VALS , BK_VALS > ; 

check _bk _d i sc ( Temp_BK_VALS , BK_VALS )  ) ; 


9 


check_bk_dism(Temp_BK_VALS,BK_VALS)  ) . 


get_bk_vals( I , trw,bk_vals, CBK_VALS/1 .03):- 

bk_val_per_status(not_bankrupt, BK_VALS ) 


check _bk_f i le ( Temp_BK_VALS , BK_VALS ) 

member ( Temp _BK_VALS ,Cbk_7_file,bk_ll_file,bk_13_file3) 
show_bk_f i le_message  <  Temp  _BK_VALS , BK_VALS ) . 


check  _bk_d i sc ( T emp_BK_VALS , BK_VALS ) : - 

member ( Temp_BK_VALS , Cbk _7_d i sc , bk_ 1 1 _d i sc 3 ) , 

show_bk_d isc_message ( T emp_BK_VALS ,  BK_VALS ) . 

check_bk_d ism( T  emp_BK_VALS , BK_VALS ) : - 
member ( Temp_BK_VALS , C bk _7_d i sm , bk_ 1 1 _d i sm , bk _ 1 3_d i sm , 
bk_ 1 3_comp  3 )  , 

show_bk_d ism_message ( Temp  _BK_VALS , BK  VALS ) . 


get  _no tpdaa_n( I , no tpdaa , no tpdaa _n , C No tpdaa_N/ 1 .03 ) 
f indal 1 ( notpdaa ,data ( _ , no tpdaa, _ ,L) , 
length <  L , No tpdaa_N ) , gc ( f ul 1 ) . 

get_no tpdaa_a  < I , no tpdaa , no  tpdaa _a , HNotpdaa_A/ 1.03):- 
f i ndal 1 ( Amount , data ( _ , notpdaa, _ _ .Amount , _, _ ) , A ) 
to  ta l _no  tpdaa_a ( A , No  tpdaa_A )  ,  gc  < f ul 1 ) . 
to ta 1 _no tpdaa_a ( L 3 , 0 ) : -  !. 
total_notpdaa_a( CA i L3 ,Notpdaa_A) : - 
to tal _no tpdaa _a < L , Sub  total ) , 

Notpdaa_A  is  Subtotal  +  A. 

get _f c los_val s ( I , f orec 1 osur e ,  forec losure_wei ght  val, 

C  FCWTVAL/ 1.03):- 

data<_, foreclosure, 
shaw_forec losure_message? 

we i gh t _per  _s  ta  tus  <  f or  ec 1 osur e , FCWTVAL )  , gc ( f u 1  1  )  . 


get_fclos_vals( I ,foreclosure,foreclosure_weight_val , 
CFCWTVAL/1 .03 )  :- 

FCWTVAL  is  0,gc(full). 

show_f orec losure_message : - 
n  1  ,  pu  t ( 7 ) , 


write! 'There  is  a  foreclosure  item  in  the  report.’). 


get_ judgment _va 1 s ( I , judgment  >  judgment _we i ght_va 1 , 

C JDWTVAL/ 1.03):- 

data ( _ 9  judgment , _ , _ 9  9  _  9 _ 9 _ 9^9 _ ) 9 

show_  judgment  _mess age  9 

we igh t  _per  _st at us ( judgment  9  JDWTVAL ) 9  gc ( f u 1 1 ) . 

get _  judgment _va 1 s ( I  9  judgment  9  judgment_we ight_val 9 
C JDWTVAL/ 1.03):- 

JDWTVAL  is  Ofgc(full). 

show_  judgment_message : - 
n 1 9  put ( 7 ) 9 

write! 'There  is  a  judgment  item  in  the  report.’) 


get_repo_va 1 s  < I  9  repo  9  repo _ we i gh  t_va  1 9 
CREPOWTVAL/1 .03 ) 

data(_9rep09_9_9_9_9_9_9_9_> 9 

show_repo_raessage 9 

weigh t_per ^status ( repo 9REPOWTVAL ) , gc ( f ul 1 ) 


get_repo_vals( I  9  repo , repo_wei gh t _va 1 , 
CREPOWTVAL/1 .03 ) :— 

REPQWTVAL  is  0,gc(full). 

show_repa_message : - 
n  1  , put ( 7 ) , 

write! ’There  is  a  repossessed  item  in  the 
report . ’ ) . 


reverse_text!Text)  :  — 
name ( Tex  t , L  )  , 
length (L,N) , 
wa(N, 1 12) , 
pu  t ( 7  )  9 
write(Text) . 

ge  t _pd_co 1 l_ac_n( I 9  pd_co 1 l_acipd_col l_ac_n, 

C PD~COLL_AC_N/ 1 .03 ) :- 

findal 1 <pd_col l_ac9data<  _9pd_col l.aci_,_9_i.i.i.i_i.) 9 
L )  , 

length!L,PD_COLL_AC_N)  , gc  <ful 1  )  . 


V'*  W>  V> • 


get_charge_off_n( I ,charge_off ,charge_off_n, 

C CHARGE _0FF_N/1 .03 ) :- 

f i ndal 1 < charge_of f ,data(_,charge_off  f.*.*^*.*.*-*-’-1 ’ 

l_  )  , 

i eng  th  <  L » C HARGE_ OF F_N ),gc(full). 

chec  k  recent  _ i nq  < I  * i nqu iry ,  no  _o  f  _  i nq , C  NoE  / 1.03):- 
t  i  nda 1 1 ( Do  I  * i nq ( _  *  Do  I ) »  L ) , 

1  eng  th ( L , NoE_ 1 ) , 

NoE_2  is  NoE_  1  -  10, 

i f thene 1 se ( NoE_2  <0,NoE_3  is  0,NoE_3  is  NoE_2 ) , 
i f then ( NoE_3>5 ,show_inq_message) , 

i f thene 1 se ( No E_3=0 , NoE  is  0,NoE  is  NoE_l ) . 


show_inq  message:- 

nl ,  put (7) ,wr i te< ’Too  many  inquiries’). 

get_curr_acc t  _n  < I , super payer , curr_acc t_n,CN/1.03):- 
findall (curr_acct,data(_, cur r  _acc  t  1 

1  eng  th ( L , N_ 1 ) , 

N  2  is  N_ 1  -  10,  /*only  over  10  curr_accts  are 

bad  */ 

i f thene 1 se ( N_2  <  0,N_3  is  0*N__3  is  N_2  )  , 
i f thene 1 se ( N_3=0 , N  is  0*N  is  N_2 ) , 
gc  <  ful 1 )  . 

show  cur r_acct_message : - 

nl ,put(7) ,write( ’Too  many  active  creditors’). 


/*  compute_ to ta 1 _month ly_payment < 1 1 1 1 1 1 1 1 6 , 5864 ) .  */ 

compute_total_month ly_payment  <  SSN, Expenses ) : - 
nex t _match , gc ( f u 1 1 ) , 
to  tal _month 1 y _expenses (Expenses ) , 
current_case ( Curr ent_Case ) , 

CCurrent_Case3 ,gc ( ful 1 ) . 

/*  This  is  to  reintroduce  the  data ( )  predicates  just 
wiped  out  during  the  total  monthly  payment  computations 


nex  t  match : - 

nex  t _payment  ;  tota 1 _month 1 y_payments . 
nex  t  _payment : - 

data(A,B,C,D,E,F,G,Balance_Due,H,I ) ,  !  , 

i f then ( var ( Ba 1 ance^Due ), Ba 1 ance_Due  is  0), 
asser t a ( ba 1 ance_due ( Ba 1 ance_Due ) ) , 


SW5»»s8wiw^^ 


retractall(data(A,8,C,D,E,F,G,Bal ance_Due ,H,I)),gc(ful- 
1  >  , 

nex  t_match . 

total_month 1 y_payment s : - 

f i nda 1 1 <  Ba 1 ance_Due ,  balance_due ( Ba 1 ance_Due ) , L ) » 
total_balances(L,Total_Balance), 

Expenses  is  To ta 1 _Bal ance*0 . 1 0 , 

asser  tz(total_manthly_expenses(Expenses)  > . 

to tal  ba 1 ances ( [ ] , 0 ) : -  !. 
total _bal ances ( CS!L] ,Total_Balance) 
total _b ala nceslL, Sub  to  t a  1  )  , 

Total  Balance  is  Subtotal  +  S. 


ret vac ta 1 1 ( X ) retract(X) ,fail. 
retractall(X) :-retract( <  x : -y ) ) , f a i 1 . 
retractal 1  (  )  . 


compute_ to  ta 1 _month 1 y _payment ( _ , 0 ) . 

/* 

computedi scret i onary_ i ncome ( 111111116, single, 93943 , - 
3000) .  */ 

/*  campute_d iscret ionary _ i ncome 3000 ) .  */ 

compute_discret ionary_ i ncome ( SSN , Di scret i onar y_ I n- 
come )  :  - 

emp  loyee ( SSN , GS_Leve 1 ,Sal_Step,M_Status,Zip) , 
gs_sal_table( GS_Leve 1 , Sa 1 _Step , I ) , 
if thenelse(M_Status=marr ied ,  Income  is  1*1.60, 
Income  is  I ) , 

tax ( I ncome ,Tax_rate)  , 
rent (Zip ,Rent ) , 

Food  is  I ncome*0 . SO , 

Net  rate  is  1-Tax_rate, 

D i sposab 1 e_ i ncome  is  I ncome*Net_r ate  , 

Expenses  is  Rent+Food, 

Vr 1 y_d i scret ion_amount  is 
Uisposable_i ncome-Expenses , 

Discr_Inc  is  Yr 1 y_d i scret i on_amount / 1 S , 

D i sere t i onar y_ I ncome  is 
round (Discr_lnc,0) ,gc(full ) . 

tax< Income,Tax_rate) 

case ( [ I ncome< 1 0000->Tax _r a te  is  0, 

Income<30000->Tax_rate  is  0.151 
Tax  rate  is  0.S81). 


rent ( '93943’ ,700) . 
rente ’93949’ ,700) . 


All  conclusions  are  based  these  weighted  decisions 


we igh ted_dec i s i on < 10, normal )  . 

we ighted_decision( 20 .normal ) . 

weighted_dec ision( 30, normal ) . 

weigh  ted _dec ision( 40, satisfactory) . 

we igh  ted_dec i s i on ( 50 .satisfactory) . 

we ighted_decision( 60 ,less_than_ satisfactory) 

we igh ted_dec i s ion ( 70 , less_ than_sat isfactory) 

weighted_decision<80,poor) . 

weighted_decision(90,poor) . 

weighted _dec i s i on  < 100 , ver y_poor ) . 

we igh  ted_dec isiont 1 10, very_poor ) . 

wei gh  ted_dec i si  on  < 1 20 , ser ious  > . 

weighted_dec ision( 130, serious) . 

we i gh ted_dec i sion ( 140, serious) - 

weigh  ted _dec i si  on ( 150 , ver y_ ser ious ) . 

weigh ted_dec i s ion ( 1 60 , ver y_ser i ous ) . 

weighted_decision< 170, critical ) . 

weighted  _dec i s ion ( 180, critical ) . 

weigh ted_dec is  ion < 190, critical ) . 

we i gh ted_dec i s i on ( _ , very _cr i t ica 1 ) . 


weight  per _s ta tus < pdbyd 1 r , 50 ) . 
wei gh t _per _status ( no tpdaa , 30 ) . 
we igh  t  _per_st a tus  <  co 1 1 _acc  t , 200 ) . 
we ight_per_status(pd_col l_ac,30> . 
we igh t  per _status ( charge_of f ,200) . 
we ight_per_status( inquiry, 10) . 
we ight_per_status(curr_acct, 10) . 
we ight_per_status(foreclosure, 200 ) 
weight_per_status( judgment , 200 ) . 
we ight_per_status<repo , 200 ) . 
we l gh t  per _st a tus ( su 1 1 , 70 ) . 
weigh  t_per_status<del inq_60, 30 ) . 
weight_per_status(delinq_90, 30 ) . 
weight  _per_status(delinq_120,40)  . 
weight_per_status(delinq_l 50 , 40 ) . 
weigh  t_per_status(delinq_180,50> . 
weight_per_status ( c_w_60 , 10) . 
we igh t _per _s t a tus ( c_w_90 , 10) . 
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we i gh t _per _st atus < c_w_l 20 , 20 >  . 
we igh t _per_sta tus ( c _w_ 1 50 , 20 ) - 
weigh  t_per_s tatus <  c_ w_ 120,30). 
wei gh t _per _sta tus ( insclaim,70) . 
weight_per_status ( vo lnrepo , 100 ) . 
weight_per_status(cwpd , 10) . 
weight_per_status(cwpd_30, 10) . 
we i gh t  _per _s tatus ( cwpd_30by2 , 20 ) . 
weigh  tper_status( c wpd_30by3 , 20 ) . 
weight_per_status( c wpd_30by4 , 30 ) . 
we igh t  per _st a tus ( cwpd_30by5 , 40 ) . 
we ight_per_s tatus ( cwpd_30by6 , 40 ) . 
we igh t  per _status ( accpd_30 , 20 ) . 
we ight_per_s tatus ( accpd_30by2 , 20 ) . 
we igh  t_per_s tatus  <  acc pd_30by3 , 20 ) . 
we i gh  t _per _sta  tus ( acc pd_30by4 , 30 ) . 
weight_per_status( accpd_30by5 , 40 ) . 
wei gh t _per_s tatus <  accpd _30by6 , 40 ) . 
we ight_per_s tatus  <  p acc _wpd  30,10). 
weight_per_status<  pacc_wpd_30by23, 20 ) 
we igh  t_per_s tatus <  p acc _wpd_30by4 , 30 ) . 
weigh  t_per_s tatus ( pacc_wpd_30by5 , 40 ) . 
we ight_per_s tatus  < pacc_wpd_30by6 , 40  > . 
weight  per _s tatus ( pacc_wde 160 , 10) . 
we ight_per_s tatus ( pacc_wdel90 , 20  )  . 
we ight_per_s tatus (pacc_wde 1120,30) . 
wei gh t _per _s tatus ( pacc_wdel 150 , 40 ) . 
weigh t  per _s tatus ( pacc_wdel 180,50) . 
weigh t_per_status ( pd_repo , 50 ) . 
we i gh t  per _status ( pd_chg_of f , 50 )  . 
we igh t_per_s tatus ( pd_f orec 1 o , 50 ) . 
we igh t _per  _s tatus (bkliqreo, 200 ) . 
wei gh t _per _s tatus ( set  1 1 ed , 50 ) . 
weight_per_status(bk_adj_pln, 200  > . 
we i ghtper _s tatus ( scnl _nwl oc , 50 ) . 
weight  per_status(co_now_pay ,50) . 
we ight  per_status(fore_proc , 200  )  . 
weight_per_status(gov_claim,70). 
we ight_per_status(ciose_np_aa,50). 
weight_per_status<scnl , 100 ) . 
wei gh t_per  _status<fed_tax_ln, 200 ) . 
we igh t _per_s tatus ( fed_ tax _re 1 ,50)  . 
weigh t_per_status<  judgmt_sat,50)  . 
we ight _per_s tatus <  judg_vaca t , 10 ) . 
we ight_per_status(mech_l ien,200) . 
we l gh  t _per _s t a  tus  <  mech_r e 1 e , 50 ) . 
weigh  t_per_status( mn_mtg_f i 1 , 1 0 ) . 
weight_per_status(  nt_respor>,  20  >  . 
we ight_per_status(stat_tx_ln, 200 ) . 
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weigh  t_per_s ta  tus (sta_tx_rel »  50 ) . 
wei gh  t_per _status ( sui t_d i smd ,10). 
wei gh t  _per  _status ( wage_as i gn , 50 ) . 
weight_per_status ( wa_re lease , 10 ) . 
weight  per_status(refinanced»10). 
we igh  t _per  ^status (cr_cd_lost, 10) . 
weight  per _st atus < c los_ inac , 10 ) . 
weignt_per_status  (  transferee))  10)  . 
weight_per_status ( too_new_r  t , 10 ) . 
weight_per_status(paid_satis, 10) . 
weigh  t _per_s tat us (paid_acct, 10) . 
weigh  t_per_st atus  < deceased , 10 ) . 
we igh  t _per_status <cr_ln_clas, 50 ) . 
we i gh t  per _status ( r edmd_r epo , 30 ) . 
weigh t_per_status ( cur_was_co 1 , 30 ) . 
weight_per_status(cr_ln_rnst , 10)  . 
weight_per _status (cur_was_far , 30 ) . 
weigh t _per_status ( pd_no  t _aa ,20 ) . 
we igh t_per_sta tus (city_tx_ln, 200 ) . 
weigh t_per _status (city_tx_rel , 50 ) . 
weigh t_per _status ( cansel _ser ,20 ) . 
weight per _status (co_tax_ln, 200  > . 
wei gh t_per_sta tus ( co_tax_re 1 ,50) . 

weight_f or  superpayer ( 200 ) . 

bk_val_per_status(not_bankrupt,0). 
bk_val_per_status ( bk_7_d isc ,200 ) . 
bk_val_per_status ( bk_7_f i 1 e , 200 ) . 
bk_val _per_status (bk_l l_f i le,200) . 
bk_val_per_status(bk_7_di sm , 200 ) . 
bk  _val _per _status ( bk_ 1 1 _d i sm , 200 ) . 
bk_va 1 _per_st atus (bk_ll_disc, 200 ) . 
bk_val_per_status(bk_13_dism,200). 
bk_val_per_status(bk_13_fi le, 200 ) . 

bk_val_per_status(bk_13_comp, 200 ) . 

get_insclaim_n( I , insclaim, insclaim_n, C Insclaim_N/ 1 .0] 
):- 

f  i  nda  1 1  (  i  rise  laim,data(_,  insclaim,  ,L)  , 

1  eng  th (L, Insclaim_N) ,gc(full ) . 
get_insclaim_a( I , insclaim, insclaim_a, C Insclaim_A/l .01 
)  :  - 

f i nda 1 1 <  Amount ,data<_, insclaim,_,_,_,_,_, Amount ,_,_), 
A )  , 

total_insclaim_a(A, Insclaim_A) , gc ( f u 1 1 ) . 
total  insclaim_a(  □  ,0)  . 

total_insclai m_a ( CAIL1 , Insclaim_A) : - 
total  i nsc 1  a im_a ( L , Sub  to t a  1 )  , 


Insclaim_A  is  Subtotal  +  A. 

get _vo lnrepo_n (I,volnrepo,volnrepo_n,CVolnrepo_N/1.03- 
):- 

fi nd all( vo 1  nr epo,data(_,vol nr epo, ,L) , 

1  eng  th ( L , Vo lnrepo_N )  , gc ( f u 11). 
get_vo lnrepo_a ( I , vo 1  nr epo , vo 1  nr epo _ a , C Vo  1  nr epo_A/ 1 .03- 
):- 

f i ndal 1 <  Amount , data  vo 1 nrepo , Amount  ,_,_),- 

A  )  , 

to ta 1 _vo 1  nr epo_a ( A , Vo  1  nr epo_A ) . 
to ta 1 _vo 1 nrepo _a ( C 3 , 0 ) : -  !. 
to  tal _vo lnrepo_a( CA1L3  , Vo  1  nr epo_A  >  :  - 
total_volnrepo_a(L, Subtotal  )  , 

Volnrepo_A  is  Subtotal  +•  A. 

get _cwpd_n ( I , cwpd , cwpd_n , CCwpd_N/l .03 ) :- 
findall(cwpd,data<_, cwpd, _> ,L> , 
length ( L , Cwpd_N ) , gc ( f u 1 1  )  . 
get_cwpd_a( I , cwpd , cwpd _a , CCwpd_A/ 1.03):- 
f inda 1 1 <  Amount ,data(_, cwpd, Amount ,_,_), A ) , 
to  tal _cwpd_a ( A , Cwpd_A ) , gc ( f u 1 1 ) . 
to ta 1 _cwpd_a ( C 3 , 0 > : -  !. 
total _cwpd_a ( C A : L3 , Cwpd _ A ) : - 

total_cwpd_a(L, Subtotal  )  , 

Cwpd_A  is  Subtotal  +  A. 

get_cwpd_30_n ( I , cwpd_30 , cwpd_30_n , CCwpd_30_N/l .03 ) 
f i ndal 1 (cwpd_30,data(_ , cwpd_30 ,L) , 
length ( L , Cwpd_30_N ) , gc ( f ul 1 ) . 
get_cwpd_30_a ( I , cwpd_30 , cwpd_30_a , CCwpd_30_A/l .03 ) :- 
f inda 1 1 ( Amount ,data(_,cwpd_30, Amount , _ , _ )  , A  >  , 
total _cwpd_30_a ( A , Cwpd_30_A ) , gc ( f u 1 1 ) . 
to ta 1 _cwpd_30_a ( C 3 , 0 ) : -  !. 
total _cwpd_30_a( CAIL3 , Cwpd_30_A ) : - 
total _cwpd_30_a(L, Sub  to  tal), 

Cwpd_30_A  is  Subtotal  +  A. 


ge t_cwpd_30b y2_n  <  I ,cwpd_30by2, cwpd_30by2_n , [Cwpd_30bv2- 
_N / 1 .03 ) 

f i nda 1 1 ( cwpd_30by2 , data ( _ , cwpd _ 30b  ,  2, ,  - 
L )  , 

1  eng  th  <  L , Cwpd_30by2_N ) , gc ( f u 1 1 ) . 
get_cwpd_30by2_a ( I , cwpd _ 30b y2 , cwpd_30by2_a , CCwpd_30by2- 
_A/1.03):- 

f i nda 1 1 ( Amount ,data(_,cwpd_30by2, Amount ,_,_)- 
,  A )  , 

total _c wpd_30by2_a ( A , Cwpd  _30b  y2  _A ) , gc ( f u 1 1 )  . 
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to ta 1 _cwpd _30by2_a < C 3 , 0 > : -  !. 
to tal _cwpd_30by£_a (  C  A  !  L  3  , Cwpd_30by2_A ) : - 
to t a  1 _cwpd_30by2_a ( L , Sub  to ta 1 ) > 

Cwpd_30by2_A  is  Subtotal  +  A. 

get_cwpd_30by3_n ( I , cwpd_30by3 , cwpd_30by3_n , C Cwpd_30by3- 
_N/ 1 . 03 ) ; — 

f i ndal 1 ( cwpd_30by3 , data  < _ ,cwpd_30by3  »- 

L )  , 

1  eng  th ( L , Cwpd  _30by3_N )  »  gc ( f  u 1 1 )  . 
get_cwpd_30by3_a ( I  * cwpd_30by3 , cwpd_30by3_a , C  Cwpd_30by3- 
_A/ 1.03) 

f inda 1 1 ( Amount , data ( _ , cwpd_30by3  Amount 

>  A )  > 

to  tal _cwpd_30by3_a  <  A » Cwpd_30by3_A  > , gc ( ful 1 > . 
tota 1 _cwpd_30by3_a < C 3 > 0 ) : -  !. 
to  tal _cwpd_30by3_a  <  C A ! L  3 , Cwpd_30by2_A ) : - 
to tal _cwpd_30by3_a ( L , Sub  to t a  1 >  * 

Cwpd_30by3_A  is  Subtotal  +  A. 

get_cwpd_30by4_n ( I , cwpd_30by4 , c wpd_30by4_n , CCwpd_30by4- 
_N/ 1 . 0 D  )  : - 

f i ndal 1 i cwpd_30by4 ,data < _ , cwpd_30by4 , _ ,  )*- 

L )  » 

length ( L , Cwpd_30by4_N > , gc ( f ul 1 ) . 
get_cwpd_30by4  a(I,cwpd  30by4 , cwpd_30by4  a , C Cwpd_30by4- 
_A/1 .03  > 

f i nda 1 1 ( Amount , data ( _ , cwpd_30by4 Amount 
>A)  i 

total _cwpd_30by4_a ( A , Cwpd_30by4_A ) , gc ( f ul 1 ) . 
to ta 1 _cwpd_30by4_a ( C 3 » 0 ) : - 
to tal _cwpd_30by4_a ( CA ! L3 , Cwpd_30by4_A ) : - 
total_cwpd_30by4_a(L, Subtotal ) » 

Cwpd_30by4_A  is  Subtotal  +■  A. 

get_cwpd_30by5_n < I , c wpd_30by5 , c wpd_30by5_n , CCwpd_30by5- 
_N/ 1.03): — 

f i ndal 1 ( cwpd_30by5 , data ( _ , c wpd  _30by5 , _ )  » - 
1—  )  » 

1  eng  th ( L , Cwpd_30by5_N ) tgc ( ful 1  ) . 
get_cwpd_30by5_a ( I , cwpd_30by5 , cwpd_30by5_a , CCwpd_30by5- 
_A/1.03)s- 

f i nda 1 1 ( Amount ,  data ( _  » cwpd_30by5 , _ , Amount , _ , _ ) - 

»A)  j 

to  ta 1 _cwpd_30by5_a ( A , Cwpd_30by5_A  > , gc ( f u 1 1 )  . 
to ta 1 _c wpd_30by5_a ( C 3 > 0 ) : -  ! . 
to  ta 1 _cwpd_30by5_a ( C A ! L3 , Cwpd_30by5_A ) : - 
to ta 1 _cwpd_30by5_a < L , Sub  to ta 1  ) » 

Cwpd_30by5_A  is  Subtotal  +  A. 
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get _cwpd_30by6_n ( I , cwpd_30by6 * cwpd_30by6_n , [Cwpd_30by6 
1n/1.03>-.- 

f i nda 1 1 ( cwpd_30by6 »data(_,cwpd_30by6, 

L )  , 

1  eng  th ( L  » Cwpd_30by6_N ) , gc ( f u 1 1 >  - 
get_cwpd_30by6_a ( I , cwpd_30by6 » cwpd_30by6_a i CCwpd_30by6 
_A/  r.03  )  7— 

f i nda 1 1 ( Amount , data ( _ ,  cwpd_30by6  Amount , _ , _ ) 

iA)  i 

total _cwpd_30by6_a (A,Cwpd_30by6_A) , gc ( f u 1  1  )  . 
to ta 1 _cwpd_30by6_a ( [ 3 , 0 ) : -  ! . 
to  tal  _cwpd_30by6_a  <  C  A  L  3  ,  Cwpd  _30by6_A  )  :  - 
to t a  1 _cwpd_30by6_a ( L 5 Sub  to t a  1  )  > 

Cwpd_30by6_A  is  Subtotal  +  A. 

ge t _ac c pd _30_ n  < I , ac cpd_30 i accpd _30_n , C  Accpd_30_N/ 1.03- 
>s-~ 

f i ndal 1 <  accpd_30 5data(_,accpd_30,_,_,_,_,_,_,_,_)  ,L)  , 

1  eng  th ( L * Accpd_30_N ) , gc ( fu 1 1 ) . 
get_accpd_30_a ( I , ac cpd_30 , accpd_30_a , CAccpd_30_A/ 1.03- 
)  :  - 

f i nda 1 1 ( Amount , data ( _ , accpd_30  »_>_*_»_»_*  Amount , _ , _ ) ,  - 
A )  * 

total _accpd_30_a ( A , Accpd_30_A ) , gc ( fu 1 1 ) . 
tatal_accpd_30_a< C 3 ,0) :-  !. 
to  tal _accpd_30_a ( C A ! L3  , Accpd_30_A ) : - 
total_accpd_30_a(L, Subtotal )  , 

Accpd_30_A  is  Subtotal  +  A. 


get_accpd_30by2_n < I ,  accpd_30by2 , accpd_30by2_n , 

C Accpd_30by2_N/ 1 .03):— 

f i nda 1 1 ( accpd_30by2 , da ta ( _ , accpd  _30by2 

I  iL)  i 

length  ( L  ,  Accpd_30by2_N  )  ,gc  (  f  ul  1  >.. 
get_accpd_30by2_a ( I , accpd_30by2 , accpd_30by2_a , 

C Accpd  _30by2_A/ 1.03):- 

findall (Amount,data(_, accpd  _30by2  Amount , _ , 

)  )A)  i 

total _ac cpd_30by2_a(A, Accpd _30by2_A )  , gc ( f ul 1 ) . 
to ta 1 _accpd_30by2_a ( t 3 , 0 ) : -  l  . 
total _accpd_30by2_a (  C A  L 3  ?  Accpd  _30by2_A )  :  - 
total _accpd_30by2_a (L, Subtotal  )  , 

Accpd_30by2_A  is  Subtotal  +■  A. 

ge t  _accpd_30by3_n ( I , accpd  _ 30b y 3 , accpd _30by3_n , 

C Accpd _30by3_N/ 1.03):- 
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f i ndal 1 ( accpd_30by3 . da ta ( _ * ac c pd _ 30b y 3 

)»!—)» 

length ( L * Accpd_30by3_N ) , gc ( f u  1 1  )  . 
get_accpd_30by3_a ( I , accpd_30by3 > accpd_30by3_a * 

C Accpd_30by3__A/  1  .03  ) 

f i nda 1 1 < Amount ,data(_,accpd_30by3,_._»_,_,_, Amount , _ , 
)  i  A  )  t 

to  tal _accpd _30by3_a ( A , Accpd_30by3_A ) »  gc ( f u 1 1 ) . 
to ta 1 _accpd_30by3_a < C 3 » 0 ) : -  ! . 
total _accpd  _30by3_a ( C  A  i  L  3 ,Accpd_30by2_A) 
to ta 1 _accpd_30by3_a ( L > Sub t a t a  1 ) » 

Accpd_30by3_A  is  Subtotal  +  A. 


get_accpd_30by4_n ( I , accpd_30by4 , accpd_30by4_n, 
t Accpd_30by4_N/ 1 .03 > 

f i nda 1 1 ( accpd_30by4 , data ( _ i accpd_30by4 
)  >  l—  )  » 

leng  th ( L , Accpd_30by4_N ) , gc ( f u 1 1 ) . 
get_accpd_30by4_a  < I , ac cpd_30by4 , accpd_30by4_a, 
CAccpd_30by4_A/ 1.03):- 

f i nda 1 1 ( Amount i data ( _ , accpd_30by4  *_*_*_»_ i _  *  Amount , 
)  iA)  i 

to  tal _accpd_30by4_a ( A , Accpd_30by4_A ) , gc ( f u 1 1  )  . 
total_accpd_30by4_a( C 3 *0 ) : -  !  . 
to  tal _accpd_30by4_a ( C A ! L  3 , Accpd_30by4_A ) : - 
total _accpd_30by4_a ( L > Sub  to ta 1 ) » 

Accpd_30by4_A  is  Subtotal  +  A. 


get__accpd_30by5_n  <  I  ,  accpd_30by5  ,  accpd_30by5_n, 

C Accpd _30by5_N/ 1.03):- 

f i ndal 1 ( accpd_30by5 , data  <  _  * ac c pd _ 30b y 5 

'  >  L  )  , 

1  eng  th ( L , Accpd_30by5_N ) , gc  <  f u 1  1  )  . 
get_accpd_30by5_a ( I , accpd_30by5 , accpd_30by5_a* 
CAccpd_30by5_A/l .03 ) :- 

f i nda 1 1 ( Amount , da  ta ( _ , accpd  _ 30b y 5  >_>_*_>_>_>  Amount , 
)  i  A  )  i 

total_accpd_30by5_a(A, Accpd _30b y5_A )  , gc ( f u 1  1  )  . 
to  t a  1  _accpd  _30by5_a  (  C  3 , 0  )  :  -  . 

to  ta 1 _ accpd _ 30b y5_a ( C  A  i  L  3 ,Accpd_30by5_A) :  - 
to t a  1 _accpd_30by5_a ( L > Sub t o t a  1  ) , 

Accpd_30by5_A  is  Subtotal  +  A. 

get_accpd_30by6_n ( I , accpd_30by6 , ac c pd_30b y6_ n , 
CAccpd_30by6_N/ 1 .03):- 

fi nd all (accpd_30by6*data(_»accpd_30by6, 

)  »  L-  )  > 

length ( L , Accpd_30by6_N ) ,gc(ful 1 ) . 
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ge  t_accpd_30by6_a  < I >  accpd_30by6  *  accpd_30by6_a , 

C Accpd_30by6_A/ 1.03):- 

f i nda 1 1 ( Amount , data ( _ , accpd_30by6  Amount 

)  >  A  )  » 

to  ta 1 _accpd_30by6_a ( A , Accpd_30by6_A ) , gc ( f u 1 1 )  . 
to t a  1 _accpd_30by6_a ( C 3 » 0 ) : -  '  . 
total _accpd_30by6_a ( C  A ! L ] *  Accpd_30by6_A ) : - 
to t a  1 _accpd_30by6_a < L » Sub  to ta 1 ) , 

Accpd_30by6_A  is  Subtotal  +  A. 


get_pacc_wpd_30_n<  I  , pacc_wpd _30 5 pacc_wpd_30_n , 
LPacc_wpd_30_N/l .03 ) 

f i nda 1 1 ( pacc_wpd_30 , da ta ( _ » pace  _wpd  _30 
)  ,L>  , 

length(L,Pacc_wpd_30_N> , gc ( f u 1 1 ) . 
get_pacc_wpd_30_a ( I » pacc_wpd_30 » pace _wpri _30_a , 
CPacc_wpd_30_A/ 1 .0] ) 

f i ndal 1 ( Amount , data ( _ , pacc_wpd_30  Amount 

)  >  A  )  i 

total_pacc_wpd_30_a(A, Pacc_wpd_30_A ) , gc ( f u 1 1 ) . 
to t a  1 _pacc_wpd _30_a ( C 3 , 0 ) : -  l. 
total  _pacc_wpd_30_a  (  C  A  L 3 1  Pace  _wpd_30_A  )  :  - 
total_pacc_wpd_30_a(L,Subtotal ) , 

Pacc_wpd_30_A  is  Subtotal  +  A. 

get_pacc_wpd_30by23_n ( I , pacc_wpd_30by£3 , pacc_wpd_30by2~ 
3_n , 

LPacc_wpd_30by23_N/l .01 ) :- 
f indal 1 ( pacc_wpd_30by23 , 

da  ta ( _ , pacc_wpd_30by23  » L-  >  * 

1  eng  th ( L , Pace _wpd _30by23_N ) , gc ( f u 1 1 )  . 
get_pacc_wpd_30by23_a ( I , pacc_wpd_30by23 * pacc_wpd_30by2- 
3_a , 

LPacc  _wpd_30by23_A/ 1.03):- 

f i nda 1 1 ( Amount , da  ta ( _ , p ac c _ wp d _ 30b y 23 Amount- 
i  _  >  _  )  i  A  )  i 

total_pacc_wpd_30by23_a(A,Pacc_wpd_30bv23_A) , gc ( f u 1 1 ) . 
total _pacc_wpd _30by23_a ( C  3  » 0 ) : -  !  . 

total_pacc_wpd_30by23_a(CA:L3.Pacc_wpd_30by23_A):- 
to  tal  _pacc__wpd_30by23_a  (L,  Subtotal  )  > 

Pacc_wpd_30by23_A  is  Subtotal  +  A. 
get _pacc_wpd_30by4_n  ( I , p acc _wpd _30by4 , pace _wpd _30by4_n , 
CPacc  _wpd  _30by4_N/ 1.03):- 

fmdal  1  (pacc_wpd_30b>Y;  idatal  _  ,pacc_wpd_30by4i_)_  , 

«_*_»_) i L ) j 

length ( L , Pacc_wpd_30by4_N ) , gc i fu 1  1 ) . 
get_pacc_wpd_30by4_a ( I , pacc_wpd_30by4 , pacc_wpd_30by4_a , 
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CPacc_wpd_30by4_A/ 1.03):- 

f i nda 1 1 ( Amount , da ta ( _ , pace  _wpd_ 30b y 4 , Amount , 
_ ,  __ )  »A)  9 

to  ta 1 _pacc_wpd_30by4_a  ( A , Pace  _wpd_30by4_A ) , gc ( f u 1 1 )  . 
total _pacc_wpd _30by4_a ( C  3 , 0 ) : -  !  . 

total _pacc  _wpd_30by4_a  < [ A ! L  3  »  Pacc_wpd_30by4_A ) : - 
to ta 1 _pacc_wpd_30by4_a ( L , Sub  to t a  1 )  , 

Pacc_wpd_30by4_A  is  Subtotal  +  A. 

get _pacc  _wpd_30by5_n ( I , p  acc  _wpd_30by5 , pace _wpd_ 30b y5_n 
CPacc_wpd_30by5_N/ 1.03);- 

f i nda 1 1 ( pacc_wpd_30by5 ,  da t a ( _  » pace _wpd_30by5 

9  __  9  _  9  —  )  9  L-  )  9 

length(L9Pacc_wpd_30by5_N) , gc ( f u 1 1 ) . 
get_pacc_wpd_30by5_a (  I  9  pacc_wpd_30by5  ,  pacc_wpd_30by5__a 
CPacc _wpd_30by5_A/ 1 .03 ) 

f i nda 1 1 ( Amount  9  data (_  9  pace _wpd_30by5  Amount  9 

_ 9 _ ) 9A) 9 

total _pacc_wpd_30by5_a < A  9  Pace _wpd_30b y5_ A ) , gc ( f u 1 1 )  . 
total _pacc_wpd_30by5_a ( C  3  9  0 ) : -  (  . 

total _p ac c _ wpd _30by 5 _a (  [  A  i  L  3  ,  Pace _wpd_30by5_A ) : - 
to t a  1 _pacc_wpd_30by5_a ( L 9  Sub  to ta 1 ) 9 

Pacc_wpd_30by5_A  is  Subtotal  +  A. 

get_pacc_wpd_30by6_n ( I  9 pacc_wpd_30by6 9 pacc_wpd_30by6_n 
[Pace  _wpd_30by6_N/ l" .  0  3 ) :- 

f 1 ndal 1 ( pacc_wpd_30by6 , data ( _  9  pace _wpd_30by6 9  _  9  _  9  _  9  _  9  _ 

9  _  9  _  9  _  )  9  L  )  9 

length ( L  9  Pacc_wpd_30by6_N ) ,gc ( ful  1  )  . 
get  pace _wpd_30by6_a ( I  9  pace _wpd_30by6 9  pace _wpd_30by6_a 
[Pacc_wpd_30by6_A/ 1.03):- 

findal 1 (Amount, data(_9  pacc_wpd_30by6  9  _  9  _  9  _  9  _  9  _  9  Amount , 
_ 9 _ )  9  A  )  , 

total_pacc_wpd_30by6_a(A,Pacc_wpd_30by6_A)  ,gc (ful  1  )  . 
total _pacc_wpd_30by6_a ( C  3 , 0 ) : -  ! . 

total _pacc  _wpd_30by6_a  <  CA1L3 ,Pacc_wpd_30by6_A) :  - 
total _pacc  _ wpd_30by6_  a (L, Subtotal  )  , 

Pacc_wpd_30by6_A  is  Subtotal  +  A. 


aet_pacc_wdel 60 _n ( I ,pacc_wdel6u,pacc_wdel60_n, 
[Pacc_wde 160_N/1  .03 )  :  — 

t i nda 1 1 ( pace  _wde 160,data(_9pacc_wdel60,_9_,_9_9_9_9_, 

),U, 

iength(L,Pacc_wdel 60  _N ) , gc ( f u 1 1 ) . 
get  pacc_wdel60_a( I ,pacc_wdel60ipacc_wdel60_a, 
[Pacc_wdel60_A/l .03 ) ;- 

f i nda 1 1 ( Amount ,data(_, pace _wdel60, Amount, 


total _pacc_wde 1 60 _ a ( A , Pace _wde 1 60_A ) , gc ( f a  1 1  ) . 
to ta 1 _pacc_wde 1 60_a ( C ] , 0 ) : -  ! . 
total _pacc_wde 160_a ( C A  I  L3 , Pacc_wde 1 60_A ) : - 
total _pacc_wde 1 60_a ( L , Subtotal ) , 

Pacc_wdel60_A  is  Subtotal  +  A. 

qet_pacc_wde 190_n ( I , pacc_wde 1 90 , pace _wde 190_n , 
CPacc_wdel90_N/ 1.03):- 

f l nda 1 1 ( pace  _wde 1 90, data(_,pacc_wd el  90, 

)  ,  L  )  , 

1  eng  th  <  L , Pace  _wde 1 90 _N ) , gc ( f u 1 1 ) . 
ge t_pacc_wde 1 90_a ( I ,pacc_wdel90, pacc_wde 1 90_a , 
CPacc_wdel90_A/ 1 .03 ) 

t i nda 1 1 <  Amount ,data(_,pacc_wdel90, Amount , 
)  ,  A )  , 

total_pacc_wdel 90 _ a (A,Pacc_wdel90_A) , gc  <  f u 1 1 ) . 
total _pacc_wdel90_a ( C 3 , 0 ) : -  !. 
to  ta 1 _pacc  _wde 190_a( C  A  !  L  3 ,Pacc_wdel90_A) : - 
to ta 1 _pacc_wdel 90_a ( L , Sub  to ta 1 ) , 

Pacc_wdel90_A  is  Subtotal  +  A. 

get _pacc_wde 1 120_n ( I , pacc_wde 1 120 , pacc_wdel 1 20 _n , 
[Pace  wde 1 1 20 _N/ 1.03):— 

f  inda  1 1  (  pacc_wdel  120  ,  data  (  _  ,  pacc__wdel  120, 

>  _  )  >  L  )  , 

length ( L , Pacc_wdel 1 20_N ) , gc ( f u 1 1 ) . 
get_pacc_wdel I20_a( I ,pacc_wdel 1 20 , pacc_wde 1 120_a, 
[Pacc_wdel 120_A/ 1.03):- 

f i nda 1 1 < Amount , data ( _ , pacc_wde 11 20, Amount 

_  )  ,  A  )  ,  . . . 

total_pacc_wdel 1 20_a ( A , Pacc_wdel 1 20 _ A ) , gc ( fu 1 1 ) . 
to ta 1 _pacc_wde 1 1 20_a ( C 3 , 0 ) : -  !. 
tatal_pacc_wdell20_a([AlL3,Pacc_wdell20_A):- 
total_pacc_wdel 1 20 _ a (L, Subtotal ) , 

Pace  wdel 120_A  is  Subtotal  +  A. 

get  _p ace _wde 1 150_n( I ,pacc_wdel 150, pace  _ wde 1 1 50 _n , 
[Pacc_wdel 150_N/1 .03 ) :- 

findal 1 <pacc_wdel 1 50 ,data(_,pacc_wdell50, 

length(L,Pacc_wdell50_N) , gc ( f u 1 1 ) . 
get_pacc_wdel 1 50_a  < I ,pacc_wdel 150,pacc_wdel 150_a, 
CPacc_wdel 150_A/ 1.03):- 

f i nda 1 1 ( Amount , da  t a ( _ , pace  _ wde 1 150, Amount 
_  )  ,  A  )  , 

total_pacc_wdel 150_a(A,Pacc_wdel 150_A) ,gc (ful 1 ) . 
to t a  1 _pacc _wde 1 1 50_a ( C 3 , 0 )  : -  !. 
total_pacc_wdel 1 50_a ( [  A  :  L  3 ,Pacc_wdel 150_A) 
total_pacc_wdel 1 50 _ a ( L , Sub  to  t a  1 ) , 


Pace  wdell50  A  is  Subtotal  +■  A. 


aet_pacc_wdel 180_n( I , pacc_wdel 1 80 , pace _wde 1 180_n, 
[Pacc_wdel 180_N/ 1 . 0 3  > : - 

f i nda 1 1 ( pace  _wde 1 1 80 ,data(_,pacc_wdel 180 
,  _  )  ,  L. )  , 

iength(L,Pacc_wdel 1 80_N ) ,  gc (ful  1  )  . 
get_pacc_wdell80_a(  I  ,  pace  _wde  1  180,  pacc__wde  1  1 80  _  a  , 

[Pace _wde 1 180_A/ 1.03):- 

f i nda 1 1 ( Amount , dat  a ( _ , pace  _wde 1 1 80 Amount 
_ )  *  A  )  , 

to  tal_pacc_wdel 180_a(A,Pacc_wdell B0_A ) , gc ( f u 1 1 )  . 
tota 1 _pacc_wdel 180_a ( C 3 , 0 ) : -  l. 
total _pacc_wdel 180_a(CAlL3, Pace  _wde 1 1 S0_A ) :  - 
to t a  1 _pacc_wde 1 1 80_a ( L , Sub t o t a  1  )  , 

Pacc_wdel 180_A  is  Subtotal  +  A. 

get_pd_repo_n( I ,pd_repo,pd_repo_n, 

CPd_r epo_N/ 1 .03 ) 

fi nd all(pd_r ep a, data(_,pd_repo, ,L) , 
length <  L , Pd_repo_N ) , gc ( fu  1  1 ) . 
get_pd_repo_a( I ,pd_repo,pd_repo_a, 

LPd_repo_A/l .03 ) 

f i ndal 1 ( Amount ,data(_,pd_repo, Amount A ) , 
total _pd_repo_a ( A , Pd _repo_A ) ,gc(full ) . 
to ta 1 _pd_repo_a ( C 3 , 0 ) : -  !. 

total _pd_repo_a< CAIL3 ,Pd_repo_A) :- 
to  ta 1 _pd_repo  _a ( L , Subtotal > , 

Pd_repo_A  is  Subtotal  +  A. 

get_pd_chg_of f _n ( I , pd_chg_of f , pd_chg_off _n , 
CPd_chg_off_N/l .03 ) : - 

fi ndall(pd_chg_o ff,data(_,pd_c hg_off, 

L)  , 

leng  th  <  L , Pd_chg  _of f _N )  , gc ( f u 1 1  )  . 
get_pd_chg_of f _a (  I  ,  pd_chg_of f , pd_chg_of f _a , 
CPd_chg_off_A/i .03 ) :  - 

f l nda 1 1 ( Amount ,data(_,pd_chg_off, Amount 
,  A  )  , 

total _pd_chg_off_a(A, Pd _chg_off_A) , gc ( f u 1 1 ) . 
to ta 1 _pd_chg_of f _a ( C 3 , 0 ) : -  !. 
total_pd_chg_off_a( CA1L3 ,Pd_chg_off_A) :  - 
total_pd_chg_off_a(L,Subtotal ) , 

Pd_chg_off_A  is  Subtotal  +  A. 

get_pd_foreclo_n(  I  ,pd_foreclo,pd_foreclo_n, 
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CPd_f orec lo_N/ 1 .0]):- 

findall(pd_foreclo,data(_,pd_foreclo,_,_,_,_,_,_, 

L )  , 

length(L,Pd_foreclo_N) ,gc(ful 1 ) . 
get_pd_foreclo_a( I ,pd_foreclo,pd_foreclo_a, 
CPd_forec lo_A/ 1.0]):- 

f i nda 1 1 ( Amount  ,data(_,pd_foreclo,_,_,_,_,_, Amount 
,  A )  , 

total_pd_foreclo_a(A,Pd_foreclo_A) , gc ( f u 1 1 ) . 
to ta 1 _pd_f or ec lo _a ( C ] , O ) : -  !. 

to  tal  _pd  _forec  lo_a(  CAiL]  , Pd_f or ec 1 a_A  >  :  - 
total _pd_foreclo_a(L, Sub  to  t a  1 ) , 

Pd_foreclo_A  is  Subtotal  +  A. 

get_bkliqreo_n< I ,bkliqreo,bkliqreo_n, 

CBkliqreo_N/l .0] ) 

findall(bkliqrea,data(_,bkliqreo,_,_,_,_,_,_,_,_),L 
1  eng  th(L,Bkliqreo_N) ,gc(full ) . 
get_bkl i qreo_a ( I ,bkl iqreo ,bkl i qr eo_a , 

CBkliqreo_A/l .0] ) :  - 

f i nda 1 1 ( Amount ,data(_,bkliqreo, Amount , _  , 

A )  , 

total_bkliqreo_a(A,Bkliqreo_A) ,gc(full ) . 
to tal _bk 1 iqreo_a < C ] , 0 ) : -  !. 
total_bkliqreo_a<  CAIL] ,  Bk  1 iqreo_A ) :- 
total _bkliqreo_a(L, Subtotal ) , 

Bkliqreo_A  is  Subtotal  +  A. 


get_settled_n( I , set  1 1 ed , set  t led_n « 

CSettled_N/l .0]) :  - 

find all (settled,data(_, settled, ,L 
1  eng  th ( L , Sett led_N)  , gc ( f u 1 1 ) . 
get_settled_a< I ,settled,settled_a, 

CSettled_A/l .0] ) :  - 

f i nda 1 1 ( Amount ,data(_, settled, Amount , _ , 
total_settled_a(A,Settled_A) ,gc(full > . 
to ta 1 _set t 1 ed_a ( C ] , 0 ) : -  !. 

total _settled_a(  CAIL] ,Settied_A> :  - 
total_settled_a(L,Subtotal ) , 

Settled  A  is  Subtotal  +  A. 


get_bk  _ad j  _p 1 n_n  < I ,bk_adj_pln,bk_adj_pln_n, 
CBk_adj_pln_N/l .0] ) :- 

fi nd all(bk_ad j _p In, data(_,bk_adj_p In, 

L  )  , 

length(L,Bk_adj_pln_N) ,gc( ful 1 ) . 

ge t _bk _ad j _p 1 n_a ( I , bk _ad j  pln,bk_adj  pin  a, 
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CBk_adj  pln_A/1.0J):- 

f i nda 1 1 ( Amount ,data(_,bk_ad  i.  pln»_, Amount  ,_,_)- 
»A)  j 

total_bk_adj_pln_a(A, Bk  _ad  j  _p 1 n_A ) *  gc  <  f u 1 1  ) . 
to ta 1 _bk_ad j _p 1 n_a ( C 3 , 0 ) : -  !. 
total_bk_adj_pln_a( C  A !  L3 ,  Bk  _ad  j  _p 1 n_A ) j- 
total_bk_adj_pln_a(L»  Subtotal ) , 

Bk_adj_pln_A  is  Subtotal  +  A. 


get_scnl _nw loc_n( I ,scnl_nwloc,scnl_nwloc_n, 
CScnl_nwloc_N/l .03 ) :  - 

find all (scnl _nw loc,data(_)5cnl _nw loc, _*_»_) » - 
L  )  , 

length ( L , Scnl _nw 1  oc_N ) , gc ( f ul 1 ) . 
get_scnl_nwloc_a( I ,scnl_nwloc , scnl_nwloc_a, 
CScnl_nwloc_A/l .03 ) 

f i nda 1 1 ( Amount ,data(_»scnl _nw loc>_»_»_,_»_. Amount  ,_,_)- 

*  A )  f 

total _scn 1 _nwloc_a ( A , Scnl _nwl oc  _A ) , gc ( f  u 1 1 ) . 
to ta 1 _scn 1 _nw 1 oc_a ( C 3 i 0 ) : -  !. 
total_scnl _nwloc_a ( C A ! L  3 , Scnl _nwl oc_A ) : - 
to ta 1 _scnl _nw loc_a ( L , Sub to ta 1 )  , 

Scnl  nwloc  A  is  Subtotal  +  A. 


get_co_now_pay_n( I ,co_now_pay)co_now_pay_n) 
[Co_now_pay_N/ 1.03):- 

f i ndal 1 <  co_now_pay , data ( _ ,co_now_pay 
L )  , 

leng  th ( L , Co_now_pay_N ) , gc  <  f u  1  1  )  . 
get_co_now_pay_a( I , co_now_pay > co_now_pay_a , 
[Co_now_pay_A/ 1.03):- 

f i nda 1 1 ( Amount  »data(_iCo_now_pay»_»_,_>_,_»  Amount ,_,_)- 
»A)  y 

total_co_now_pay_a(A,Co_now_pay_A) , gc ( f u 1  1 ) . 
to ta 1 _co_now_pay_a < C 3 , 0 ) : -  !  . 
total_co_now_pay_a( C  A  !  L  3 ,Co_now_pay_A) :  - 
tatai_co_now_pay_a(L,Subtotal  )  , 

Co  now_pay_A  is  Subtotal  +  A. 


get_fore_proc_n( I ,fore_prac.fore_proc_n, 

CFore_proc_N/l .03 ) :- 

f i ndal 1 <  for e_proc  *  data fore_proc  )  ,L)  , 

length (LiFore_proc_N) 5  gc ( f u 1  1  )  . 
get_fore_proc_a( I ,fore_proc,fore_proc_a, 

CFore_proc_A/l .03 )  :  - 
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f i nda 1 1 ( Amount ,  da t a ( _  , fore _p roc Amount , _ , 

A )  i 

tatal_tore_proc_a(A,Fore_proc_A) ,gc(full ) . 
total_fore_proc_a(C3»0):-  l. 
total_f ore_proc_a( C  A  ;  L 1 ,Fore_proc_A) :  - 
to ta 1 _f ore_proc _a ( L , Sub  to t a  1 ) , 

Fore_proc_A  is  Subtotal  +  A. 

get_gov_claim_n( I ,gov_claim,gov_claim_n, 
lGav_cl a im_N/ 1.01):- 

fi nd alllgov _c laim,data(_, gov _claim, 

length (L»Gov_claim_N) , gc  <  f u 1 1 ) . 
get  _gov_claim_a( I ,gov_claim,gov_claim_a, 

[Gov_c laim_A/ 1.01):- 

f i nda 1 1 ( Amount  » dat a ( _,gov_claim , Amount , _ , 
A )  * 

total _gov_claim_a(A, Go v_c laim_A),gc(full). 
total_gov_claim_a(  [  ]  ,0)  . 

total _gov_claim_a< C  A  !  L 1 ,Gov_c laim_A) : — 
total_gov_claim_a(L, Sub  total ) , 

Gov  claim  A  is  Subtotal  +  A. 


get_c lose_np_aa_n ( I , c 1 ose_np_aa , c 1 ose_np_aa_n  , 
[Close _np_aa_N/l .01 ) :  - 

f i nda 1 1 ( c lose_np_aa »  data ( _ , c lose_np_aa 
)  »  L  )  i 

1  eng  th (  L  ,  C 1 ose_np_aa_N )  , gc  <  f u  1  1  )  . 
get_c 1 ose_np_aa_a ( I ,close_np_aa»close_np_aa_a, 
CClose_np _aa_A/ 1.01):- 

f i nda 1 1 ( Amount  *data(_,clo se_np _aa, Amoun t , 
>  » A  )  , 

total_close_np_aa_a(A,C 1 ose_np  _aa_A )  , gc ( f u 1 1 )  . 
to t a  1 _c 1 ose_np_aa_a ( C 1 , 0 ) : -  !. 

total_c!ose_np_aa_a( [A:i_3.Close_np_aa_A) : - 
Lotal_ci o  se_np  _aa_a(L, Subtotal  )  . 

C 1 ose _np _aa _A  is  Subtotal  +  A. 

get_scnl_n( I ,scnl ,scnl_n, 

LScnl _N  / 1.01):- 

findall (scnl ,data(_,scnl , _ , _ , _  ,  _)  ,L)  , 

length <L,Scnl_N) .  gc ( f u 1 1 ) . 
get_scnl_a( I ,scnl ,scnl_a, 

LScnl  __ A/1 .01  )  :- 

f l nda 1 1 ( Amount 1data(_.scnl Amount , _  ,  _  )  , A  ) 
total_scnl_a(A,Scnl_A)  , gc  <  f u 1  1  )  . 
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total_fed_tax_ln_a(A,Fed_tax_in_A) , gc ( f u 1 1  )  . 
to t a  1 _t ed_ tax_ 1 n_a < C J , 0 ) : -  f  . 
total_f ed_tax_ln_a( t  A  !  L  ] ,Fed_tax_ln_A) 
to ta 1 _f ed_tax_ 1 n_a ( L , Sub t o t a  1  )  , 

Fed  tax  In  A  is  Subtotal  +■  A. 


get_ted_tax_rel_n(  I , f ed_ t ax  _re 1 , f ed_tax_r e 1 _n , 
LFed_tax_rel_N/l -03 ) 

fi nd all (fed_tax_rel>data(_,fed_tax_rel, 

)  »  1—  )  5 

1  eng th(L,Fed_tax_rel_N)  , gc  <  f  u 1 1 )  . 
get_ted_tax_rel_a( I ,fed_tax_rel ,fed_tax_rel_a, 

IFed  tax_rel_A/l .0] ) 

t l nda 1 1 ( Amount  ,data(_,fed_tax_rel Amount ,  _  , 
)  i  A)  i 

total _ted_tax_re 1 _a ( A , Fed_ tax  re i_A)»gc(full). 
total_f  ed_tax_rel_a(  U  ,0)  . 

total_fed_tax_rel_a( CA1L1 ,Fed_tax_rel_A) :  - 
total_fed_tax_rel_a(L, Subtotal ) , 

Fed  tax  rel  A  is  Subtotal  +  A. 


get_judgmt_sat_n( I , judgmt_sat, judgmt_sat_n, 

L  J  udqm  t  _sat_N/1.01) 

t  indal 1 (  iudgmt_sat,data(_,  judqmt_sat, , 
L  )  , 

length(Li Judgmt_sat_N)  ,gc(tuli  )  . 
get_judgmt_sat_a(  1 , judgmt_sat»  judgmt_sat_a, 

LJudgmt  sat_A/l  .01  )  :  — 

find all (Amount, data(_, judgmt_sat , Amount, _  ,  _  ) 
,  A  }  , 

totai_judgmt_sat_a(A,Judgmt_sat_A)  ,gc(ful 1  )  . 
t o t a  1 _ judgm t _sa t _a ( [ J , 0 ) : - 
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total_judgmt_sat_a<  C  A  !  L  3 iJudgmt_sat_A) : - 
to t a  1 _ judgmt _sat _a ( L , Sub  to ta 1 ) » 
Judgmt_sat_A  is  Subtotal  +  A. 


get _  judg  _ vac at  _n ( I , judg_vaca t , judg_vacat_n, 
CJudg_vacat_N/l .03 ) :  — 

f i nda 1 1 ( judg_vacat ,data(_, judg_vacat>_5_, 
l— )  » 

leng  th  ( L , Jadg_vacat_N ) »  gc ( f u 1 1 > . 

ge t _ j udg_vac a t _a ( I , j udg_ vac at ,  j udg _vac a t _a , 

C Judg_vacat_A/ 1 .03 ) 

f i nda 1 1 ( Amoun t,data(_i judg  _ vac a  t, Amount 
iA)  ) 

total_judg__vacat_a(A,Judg_vacat_A) , gc ( f u 1 1 ) . 
to ta 1 _ judg_vacat_a ( C 3 , 0 ) : -  (. 
total_judg_vacat_a( C  A  !  L  3 ,Judg_vacat_A) : - 
to ta 1 _ judg_vaca t _a ( L , Sub  to ta 1 ) , 

Judg_vacat_A  is  Subtotal  +  A. 

get _mech_ 1 ien_n ( I , mech_ 1 i en , mech_ 1 i en_n , 

CMech_ 1 i en_N/ 1.03):- 

f i nda 1 1 ( mech_ 1 ien,data(_, mech_ 1 ien, 

1  eng  th  <  L  » Mech. lien_N) ,gc(full  )  . 
get _mech_ 1 ien_a ( I , mech _ 1 i en , mech _ 1 i en_a , 
t Mech_ lien_A/1.03):- 

f i nda 1 1 <  Amount , data ( _  » mech _1 ien  >_»_»_>_>_>  Amount , 
A  )  f 

total  mech _ 1 ien_a ( A , Mech _lien_A)  ,gc(full)  . 
tatal_mech_l ien_a( C  3,0):-  !. 
total_mech_l ien_a( CAIL3 , Mech_ 1 i en_A ) : - 
total _mech_ 1 i en_a ( L , Sub  to  ta 1 ) , 

Mech  lien  A  is  Subtotal  +  A. 


ge t  _mech  _r  e 1 e_n (  I ,mech_rele.mech_rele_n, 

[Mech  re  1 e  _N/ 1 .03) : - 

f i nda 1 1 ( mech  _r ele,data(_,mech_rele,_?_,_,_,_._i_» 
length(L,Mech_rele_N)  , gc ( f u 1  1  )  . 
get_mech_re le_a ( I , mech_re 1 e , mech _re 1 e_a , 

L Mech_r e 1 e_A/ 1.03):- 

f l nda 1 1 ( Amount  tdata( _ , mech  _r  Amount , 

A  )  i 

total _mech_rele_a(A5Mech_rele_A) ,gc (ful 1 ) . 
t a t a  1 _mech _r e 1 e_a ( [ 3 , 0 )  : -  1. 

total_mech_rele_a( CA1L3 ,Mech_rele_A) : — 
total_mech  rele  a < L , Sub  to ta  1  )  , 


Mech  rele  A  is  Subtotal  +  A. 


get_mn_mtg_fil_n( I , mn_mtg_f i 1  *  mn_mtg_f i  1  _n , 
CMn_mtg_fi 1 _N/ 1.03):— 

f i nda 1 1 ( mn_mtg_f i 1 , data ( _ i mn_mtg_f il»_»_»_»_»_>_5 
L )  , 

leng  th  ( L  ,  lin_m  tg_f  i  1  _N )  , gc  <  f u 1 1  )  . 
get_mn_mtg_fil_a( I ,mn_mtg_fi 1 ,mn_mtg_fi 1  _a  5 
Uyln_mtg_f  i 1_A/ 1 .03 ) : - 

f i nda 1 1 < Amount ,data<_imn_mtg_fi 1 _»_*_»_>  Amount 
iA)  i 

to  ta 1 _mn_mtg_f i l_a<A,Mn_mtg_f i 1_A) , gc ( f u 1 1 )  . 
to ta 1 _mn_mtg_f i 1 _a ( C 3 i 0 ) : -  !. 

total _mn_mtg_f i l_a<  CAIL3 ,Mn_mtg_f i 1  _A  > :  - 
total _mn_mtg_f i 1 _a ( L , Subtotal ) , 

Mn_mtg_fil_A  is  Subtotal  -t-  A. 


get_nt_respon_n ( I » nt_respon » nt_ respon_n , 
CNt_respon_N/ 1 .03 ) :- 

f i ndal 1 ( nt _respon , data ( _ , nt_respon, 

length ( L , Nt_respon_N ) *  gc ( f u 1  1  )  . 
get_nt_respon_a ( I , nt _r espon , nt _respon_a , 
[Nt_respon_A/l .03 ) :- 

f i ndal 1 ( Amount ,  data  <  _  » nt_respon » _*_*_>_*_*  Amount , 
A  )  i 

to tal _nt _respon_a ( A , Nt_r espon_A  >  ,  gc ( f u  1 1  )  . 
to ta 1 _nt_respon_a ( C 3 , 0 ) : -  ! . 
total _nt_respon_a ( C A  I L 3 , Nt_respon_A ) : - 
to ta 1 _nt_respon_a ( L » Sub  to ta 1  )  , 

Nt_respon_A  is  Subtotal  +  A. 


get_stat_tx_ln_n( 1 ,stat_tx_ln»stat_tx_ln_n» 
CStat_tx_ln_N/l .03 ) : - 

fi nd all (stat_tx_ln,data(_,stat_tx_ln»_, 

L)  , 

length<L,Stat_tx_ln_N) ,  gc  <  f  u  1 1 > . 
get_stat_tx_ln_a( I ,stat_tx_ln»stat_tx_ln_a* 
CStat_tx_l n_A/ 1.03):- 

f  i  nda  1  1  (  Amount  ,data<_jStat_tx_ln,_,_,_,_,__»  Amount 
»A )  ) 

total_stat_tx_ln_a<A,Stat_tx_ln_A) ,gc(full  )  . 
total_stat_tx_ln_a(C3,0):-  !. 
total_stat_tx._ln_a(CA!L3,Stat_tx_ln_A):- 
total_stat_tx_ln_a(L, Subtotal  )  « 

Stat  tx  In  A  is  Subtotal  +•  A. 


get_sta_tx_rel_n( I >sta_tx_rel ,sta_tx_rel_n, 
CSta_tx_rel_N/l .03 ) 

f i ndall(sta_tx_r el, data(_,sta_tx_rel, 

L)  , 

leng  th(L,Sta_tx_rel_N) , gc ( f  u 1 1 )  . 
get_sta_tx_rel_a( I ,sta_tx_rel ,sta_tx_rel_a, 

CS ta_t  x  rel _A/ 1 . 03 ) : - 

f i nda 1 1 ( Amount ,data(_,sta_tx_rel Amount 
,  A  )  , 

total_sta_tx_rel_a(A,Sta_tx_rel_A> , gc ( f u 1 1 ) . 
to ta 1 _st a_t x_r e 1 _a ( C 3 , 0 ) : -  !. 
total_sta_tx_rel_a<  C  A  I  L  3 ,Sta_tx_rel_A) 
total_sta_tx_rel_a(L, Subtotal )  , 

Sta  tx  rel  A  is  Subtotal  +  A. 


get_suit_di smd_n  < I , su i t_d i smd , su i t_d i smd_n , 

CSui t_d ismd_N/ 1.03):- 

f i ndal 1 ( su i t  _d i smd ,data(_,suit_di smd 

L )  ,  -  . “ 

length ( L , Sui t_d ismd_N ) , gc ( ful 1 ) . 

get_sui t _d ismd_a ( I , su i t _d ismd , su i t _d i smd_a , 

CSui t _d i smd_A/ 1.03):- 

t inda 1 1 <  Amount ,data<_,suit_di  smd , _ , _ , _ , _ , _ , Amount 
» A )  f 

to tal _sui t_d ismd_a ( A , Sui t_d ismd_A ) , gc ( f u 1 1 ) . 
to  ta  1  _su  i  t  _d  i  smd_a  (  C  3 , 0  )  :  -  . 

to  ta 1 _su i t _d i smd_a ( C  A ; L  3 , Su i t _d i smd_A ) : - 
total_suit_di smd_a ( L , Sub  to  ta  1  )  , 

Suit  dismd  A  is  Subtotal  +  A. 


get_wage_asign_n( I , wage_as i gn , wage_as i gn_n , 
CWage_asign_N/ 1.03):- 

fi nd all (wage_asign,data(_,wage_asign, 

L)  , 

1  eng  th ( L , Wage_as i gn_N ) , gc ( f  u 1 1 > . 

get _wage_as i qn_a ( I , wage_as i gn , wage_as i gn_a , 

C Wage _ as i gn_A/ 1 .03) 

f i ndal 1 ( Amount ,data(_,wage_asign,_,_,_,_,_, Amount 
» A )  * 

total _wage_as ign_a(A,Wage_asign_A)  , gc ( f  u 1 1 )  . 
total_wage_asign_a( [3,0):-  !. 
total_wage_asign_a<  C  A  !  L  3 ,Wage_asign_A) :  - 
total_wage_asign_a(L, Sub  total ) , 

Wage_asign_A  is  Subtotal  +  A. 


get_wa_release_n (. I , wa_re 1  ease , wa_re 1 ease_n , 
CWa_release_N/ 1.03):- 

findall(wa_release,data(_,wa_release, 

L  )  , 

length ( L , Wa_release_N ) , gc ( f ul 1 ) . 

get_wa_re 1 ease_a ( I , wa_re 1  ease , wa_re 1 ease_a , 

CWa_release_A/ 1.03):- 

f i nda 1 1 ( Amount (data(_,wa_release, _»_>_»_»_» Amount , _ , 
>  A  )  » 

total_wa_release_a<A,Wa_release_A) , gc ( f u 1 1  )  . 
to ta 1 _wa_re 1 ease_a < C 3 i 0 ) : -  ! . 

total _wa_re lea se_a ( C A ! L  3  * Wa_r  e 1 ease_A ) : - 
total _wa_re 1 ease_a(L, Subtotal ) * 

Wa  release  A  is  Subtotal  +•  A. 


get_ref inanced_n( I , r ef i nanced , ref i nanced_n , 

CRef i nanced_N/ 1.03):— 

findalllrefi nanced , da ta ( _ i ref i nanced 
L)  , 

leng th ( L , Ref i nanced _N ) , gc ( f u 1 1 ) . 

get  _r ef i nanced _a ( I , ref i nanced , r ef i nanced_a , 

CRef i nanced_A/ 1 .03 ) :- 

f l nda 1 1 ( Amount ,data(_, refinanced, _*_*_>_»_* Amount , _ , 
» A  )  f 

to  tal _ref i nanced _a ( A , Ref i nanced_A ) , gc ( f u 1 1 ) . 
to ta 1 _ref i nanced_a < C 3 , 0 ) : -  !. 

to  ta 1 _r ef i nanced _a ( C A  1 L  3 i Ref i nanced _A ) :- 
total _ref i nanced_a ( L » Subto ta 1  )  » 

Refinanced  A  is  Subtotal  +  A. 


get_cr_cd_lost_n< I ,cr_cd_lost»cr_cd_lost_n, 
CCr_cd_lost_N/ 1.03):— 

f indall (cr_cd_105t,data(_,cr_cd_lost,_,_,_,_,_t_i_,_ 

L  )  i 

length(L,Cr_cd_lost_N)  , gc  <  f u 1  1  )  . 
qet_cr_cd_lo5t_a( I ,cr_cd_iost,cr_cd_lost_a. 

CCr_cd  lost_A/l .03 ) :- 

f i nda 1 1 ( Amount ,data(_*cr_cd_iost._>_*_j_t_. Amount , _ , 
i  A  )  i 

total_cr_cd_lost_a(A,Cr_cd_lost_A) , gc ( f u 1 1  )  . 
total _cr_cd_lost_a(C3,0):-  !. 

total_cr_cd_lost_a( CAIL3 ,Cr_cd_lost_A> :— 
total_cr_cd_lost_a(L, Sub  total  )  , 

Cr  cd  lost  A  is  Subtotal  +  A. 


get_clos_inac_n( I ,clos_inac,c los_inac_n, 

CC los_inac_N/ 1.03):- 

findall (clos_i nac  »data(_,clos_inac,_*_,_,_._,_,_, 

length(L»Clos_inac_N) ,gc(full) . 
get _c los_i nac_a ( I »clos_i nac ,clos_inac_a, 
£Clos_inac_A/l .03 ) :  - 

f  i  ndal  1  (  Amount  ,data(_idos_inac,  Amount , 

A )  * 

total_clos_inac_a(A,Clos_inac_A) , gc  <  f u 1 1 ) . 
to t a  1 _c los_ i nac_a ( £  3 , 0 ) : -  !. 
to  ta 1  _c 1 os_ i nac_a ( CAIL3 ,Clos_inac_A) : - 
to  t a  1 _c 1 os_i nac _a ( L , Sub  to  t  a  1 ) , 

Clos  inac  A  is  Subtotal  +  A. 


get_transfered_n( I , transfer  ed,transfered_n, 
CTransf ered_N/ 1.03):- 

f i nda 1 1 ( transfered ,data(_,transfered, 

L )  , 

leng th  <  L , Transfered_N ) , gc  <  f u 1 1 ) . 
get_transfered_a ( I , transfered ( tr ansf ered_a * 

CT  ransf ered_A/ 1.03):- 

f i nda 1 1 ( Amount , data ( _  » transfered  »_»_»_»_»_>  Amount 

» A  )  t 

to tal _tr ansf ered_a ( A , Tr ansf ered_A ) , gc ( f ul 1 ) . 
to ta 1 _ t r ansf ered_a ( C 3 > 0 ) : -  !. 
to  ta 1 _ tr ansf ered_a <  C A ! L  3 , Tr ansf ered_A )  :  - 
to ta 1 _tr ansf ered_a ( L , Sub  to ta 1 ) > 

Transfered  A  is  Subtotal  +  A. 


get  _  too  _new_r t_n( I , too_new_rt , too_new_r t_n( 

[  T  oo_new_rt_N/ 1.03) :  — 

f i nda 1 1 ( too_new_r t,data(_5too_new_rt, 

L  )  i 

leng  th  <  L , Too_new_r  t_N)  5gc(ful 1 )  . 

ge t  _ t  oo  _new_r t_a(  I , too_new_rt , too_new_rt^a, 

C  Too  _new_r  t_A/l .03  )  :- 

f l nda 1 1 ( Amount ,data(_i too_new_rt Amount 
9  A  )  1 

total _  too_new_r t_a(A,Too_new_rt_A)  , gc ( f u 1 1  )  . 
to  t  a  1  _  too_new_r  t  _a  (  t  3  i  0  )  :  -  . 

total _too_new_r t  _a ( C  A ! L  3 , Too  _new_r  t  _A )  :- 
to  ta 1 _too_new_r  t_a  C  L , Sub  total ) > 

Too  new  rt  A  is  Subtotal  +  A. 


get  paid  satis  n(I,paid  satis»paid  satis  n, 


CPaid_satis_N/l .03  >  :  - 

findal 1 (paid_satis,data(_,paid_satis,_,_,_,_,_,_, 
L  )  » 

length(L,Paid_satis_N) , gc  <  f u 1 1 ) . 
get_paid_satis_a( I ,paid_satis,paid_satis_a, 

[Paid  satis _A/1 .03 ) : - 

f i nda 1 1 ( Amount , data<_, paid _satis, Amount 
iA)  i 

total_paid_satis_a(A,Paid_satis_A> ,gc(full  )  . 
total_paid_satis_a(C3,0):-  . 
total _paid_satis_a( CAIL3 ,Paid_satis_A) 
total _paid_satis_a(Li Sub  total )  , 

Paid  satis  A  is  Subtotal  A. 


get _pa i d_acc  t _n ( I ,paid_acct,paid_acct_n, 

[Pa id_acc  t _N/ 1.03):- 

findall(paid_acct,data(_,paid_acct,_,_,_,_,_,_,_, 

1  eng  th  (i_,Paid_acc.t_N)  , gc ( f u  1  1  /  . 
get_paid_acct__a< I ,paid_acct,paid_acct_a, 
CPaid_acct_A/l .03 ) :  - 

f i nda 1 1 ( Amount , data ( _ , pa i d_acc  t , Amount , 
A  )  , 

total _paid_acct_a(A,Paid_acct_A> ,  gc ( ful  1  )  . 
to tal _paid_acc t _a ( C 3 , 0 ) : -  !. 

total _paid_acct_a( [  A  !  L  3 ,Paid_acct_A) : - 
total_paid_acct_a(L) Sub to t a  1  )  , 

Paid  acct  A  is  Subtotal  +  A. 


ge t _dec eased _n ( I , deceased , dec eased _n , 
[Deceased_N/l .03 ) 

f i nda 1 1 ( deceased ,data<_,deceased,_,_,_,_,_,_,_,_) 
length<L,Deceased_N) ,gc (ful 1 ) . 
get_dec eased _a ( I , dec eased, deceased_a, 

CDeceased_A/ 1 .03 ) :  - 

findal  1  (  Amount  ,  data  <  deceased, Amount  .  __ 
A  )  , 

total_deceased_a(A, Deceased  _A),gc(full). 
t o ta 1 _deceased _a ( [ 3 ,0) ! . 
total _deceased_a ( [  A  :  L  3 ,Deceased_A) :  - 
total_deceased_a(L, Subtotal )  , 

Deceased  A  is  Subtotal  +  A. 


e t  _cr  _  1  n_c 1  os. 
Cr  In  c los  N/ 1 


n  (  I  ,cr_ln_clos,cr_ln_ 
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findal 1 (cr_ln_clos,data(_,cr_ln_clas,_,_,_, , 
L )  , 

length(L>Cr_ln_clos_IM)  , gc ( f u 1 1  )  . 
get_cr_ln_clos_a( I ,cr_ln_clos5cr_ln_clos_a» 
[Cr_ln_clos_A/l .0] ) :  - 

f i nda 1 1 ( Amount ,data(_jcr_ln_clos,_,_t_,_,_. Amount  >  _  »  _ ) 

i  A )  i 

total _cr_ln_clos_a(A,Cr_ln_clos_A) , gc ( f u 1 1 ) . 
t o t a  1 _cr_ 1 n_c 1 os_a <[ 3 , 0 >: -  !. 
total_cr_ln_clos_a(CA;L3,Cr_ln_clos_A):- 
total_cr_ln_clos_a(L, Sub  to  t  a  I  )  * 

Cr  In  clos  A  is  Subtotal  +  A. 


get_redmd_repo_n  < I , redmd_repo , redmd_repo_n, 
CRedmd_repo_N/l .01 ) 

findal 1 (redmd_repo ,  da t a ( _,redmd_repo , _ »  _ )  , 
L)  , 

length ( L , Redmd_repo_N ) , gc ( f ul  1  >  . 
get_redmd_repo_a( I , redmd_repo > redmd_repo_a , 
CRedmd_repo_A/ 1 .03 ) 

f i nda 1 1 < Amount ,data(_,redmd_repo,_,_,_,_,_, Amount  »  _  >  _  ) 

(A)  i 

total _redmd_repo_a ( A , Redmd_repo_A ) , gc ( f ul 1 ) . 
to  ta  1  _redmd_repo_a  (  C  3 , 0  :  -  !. 
total_redmd_repo_a( CA1L3 , Redmd  _repo_A ) *. - 
to ta 1 _r edmd_repo_a ( L , Sub  to t a  1  )  » 

Redmd_repo_A  is  Subtotal  +  A. 


get _cur _was_co 1 _n ( I ,cur_was_col , cur _was_co 1 _n > 
[Cur_was_co 1_N/1 .03 ) 

find all (cur_was_col ,data(_,cur_was_col 

1  »  L  )  i 

length(L,Cur_was_col_N) , gc ( f u 1 1 )  . 
get_cur_was_col_a( I ,cur_was_col ,cur_was_col_a, 
LCur_was_col_A/l .03 ) : - 

f l nda 1 1 ( Amount ,data(_jCur_was_col Amount,  _ . 
/  j  A  )  t 

total_cur_was_col_a(  A,Cur_was_col__A)  ,gc  (  ful  1  >  . 
to ta 1 _cur_was_co 1 _a ( C 3 , 0 ) : -  !. 

total_cur_was_col_a( CA;L3,Cur_was_col_A) : - 
tQtal_cur_was_col_a(L,Subtotal  )  * 

Cur  was  col  A  is  Subtotal  +  A. 


get_cr_ln_rnst_n( I ,cr_ln_rnst,cr_ln_rnst_n, 
[Cr  In  r  ns  t  N/1.03):- 
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findall(cr_ln_rnst,data(_,cr_ln_rnst,_,_,_,_»_,_,_ 
L)  , 

length(L,Cr_ln_rnst_N)  , gc  <  f u 1 1  > . 
get_cr_ln_rnst_a( I (cr_ln_rnst ,cr_ln_rnst_a, 
CCr_ln_rnst_A/l .0] ) j- 

f l nda 1 1 ( Amount , data(_,cr_ln_r ns t, Amount , 
i  A  )  , 

total_cr_ln_rnst_a<A,Cr_ln_rnst_A> , gc  <  f u 1 1 ) . 
t o ta  1  _cr _ 1 n_rnst _a ( [ ] , 0 )  : -  !. 

total_cr_ln_rnst_a( [AIL] ,Cr_ln_rnst_A) :  - 
total_cr_ln_rnst_a(L,Subtotal ) , 

Cr  In  rnst  A  is  Subtotal  +  A. 


get_cur_was_for_n( I ,cur_was_for ,cur_was_for_n, 
[Cur_was_for_N/l .0] ) 

find all (cur_was_for,data(_,cur_was_for, 

)  9  L  )  f 

1  eng  th (L,Cur_was_for_N)  ,gc(full )  . 
get_cur_was_for_a( I ,cur_was_for,cur_was_for_a» 
[Cur_was_f or_A/ 1.0]) : - 

f i nda 1 1 ( Amount ,data(_,cur_was_for,_,_,_,_,_, Amount 

)  i A)  i 

total _cur_was_for_a<A,Cur_was_for_A) , gc ( f u 1  1 ) . 
to ta 1 _cur _was_f or _a ( [ ] , 0 ) : -  !. 
total _cur _was_f or  _a ( [  A ! L ] , Cur _was_f or  _A )  : - 
to ta 1 _cur _was_f or _a ( L , Sub  to ta 1 )  , 

Cur  was  for  A  is  Subtotal  +  A. 


get_pd_not_aa_n( I ,pd_not_aa,pd_not_aa_n. 
[Pd_not_aa_N/l .0] ) 

fi nd all (pd_not_aa,data(_,pd_not_aa, 

length (LiPd_not_aa_N) ,gc(full ) . 
qe t _pd _no t _aa_a ( I , pd _no t _aa , pd _no t _ aa_a , 

[ Pd_no  t_aa_A/l .0] )  :  — 

f i nda 1 1 ( Amount idata(_,pd_not_aa,_,_,_,_,_,Amount, 
A), 

total_pd_not__aa_a(  A,Pd_not_aa_A)  ,gc  (  ful  1  i  . 
to ta 1 _pd_no t _aa_a ( C ] , 0 ) : -  !. 
total_pd_not_aa_a( [AIL] ,Pd_not_aa_A) : - 
total_pd_not_aa_a(L,Subtotal ) , 

Pd  not  aa  A  is  Subtotal  +-  A. 


get_ci ty_tx_ln_r( I ,city_tx_ln,city_tx_ln_n, 
[City_tx_ln_N/l .0] ) : - 
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findall(city_tx_ln,data(_,city_tx_ln,_,_,_,_5_,_, 

L )  , 

length(L,City_tx_in_N) , gc ( ful 1 )  . 
get_city_tx_ln_a( I ,city_tx_ln,city_tx_ln_a» 
CCity_tx_ln_A/l .0] ) i- 

f 1 nda 1 1 ( Amount ,data(_5city_tx_ln, Amount 
t  A)  i 

total_city_tx_ln_a(A,City_tx_ln_A) ,  gc  (  f  u  1  1  ) . 
to t a  1 _c i t y _ t x_ 1 n_a ( C 1 5 0 > : -  !  . 

totai_city__tx_ln_a(  C  A  L  1  ,City_tx_ln_A)  :  - 
total_city_tx_ln_a(L>Subtotal  )  , 

Litv  tx  In  A  is  Subtotal  +  A. 


get_city_tx_rel_n( I ,city_tx_rel ,city_tx_rel_n, 
CCity_tx_rel_N/l .01 ) 

findall(city_tx_rel»data(_»city_tx_rel, 

)  ?  L  )  t 

1  eng th (L,City_tx_rel_N)  , gc  <  f u 1 1  )  . 
get_city_tx_rel_a< I ,city_tx_rel ,city_tx_rel_a, 
CCity_tx_rel_A/l .01 ) 

f i nda 1 1 < Amount ,data(_icity_tx_rel Amoun 
)  i  A  )  » 

total _city_tx_rel_a(A,City_tx_rel_A) ,gc(ful 1 ) . 
to ta 1 _c i ty_ t x_re 1 _a ( C 1 , 0 ) : -  !. 

total _c it y_tx_rel_a( C  A  I  L 1 ,City_tx_rel_A) : - 
total_ci ty_tx_rel_a(L, Subtotal ) > 

C  i  t y_ t x_re 1 _A  is  Subtotal  +  A. 


ge t _conse 1 _ser_n < I ,  conse 1 _ser , conse 1 _ser_n  , 
CConsel_ser_N/l .01) 

f i nda 1 1 ( conse 1 _ser ,data(_,consel_ser, 

L  )  , 

length (L,Consel_ser_N)  , gc ( f  u 1  1  )  . 
get_consel_ser_a( I ,consel_ser,consel_ser_a, 

C Conse l_ser_A/1.01):- 

f l nda 1 1  ( Amount idatal _  5  conse 1 _ser , Amount 
,  A  )  , 

total__cansel_ser_a(A,Consei_^er_A>  ,gc(ful  1  )  . 
t o t a  1 _conse 1 _ser _a ( C  1  , 0 )  : -  I  . 
total _consel_ser_a( CAILl ,ConseI_ser_A) :  - 
total_consel_ser_a(L,Subtotal  )  , 

Consel  ser  A  is  Subtotal  +  A. 


get_co_tax_ln_n(  I  ,  co_tax_ln«co__tax_ln_n, 
CCo  tax  In  N/1.01):- 


.’.V  V  .'V v;.‘  v  M  IK K5  "A V 'J TV*  CT CT V>  UV  PS  J*  -V." 


find all (co_tax_ln,data(_,co_tax_ln, ,L)  , 

length(L,Co_tax_ln_N) » gc ( f ul 1 )  . 
get_co_tax_ln_a( I ,co_tax_ln,co_tax_ln_a) 

CCo_tax_ln_A/l .01 ) 

fi nd all (Amo unt5data(_,co_tax_ln, Amount , _ , _ ) , - 

A )  9 

total_co_tax_ln_a(A,Co_tax_ln_A) , gc ( f u 1 1 ) . 
to ta 1 _co_ tax_ 1 n_a ( C 1 , 0 ) : -  !. 
total_co_tax_ln_a( C  A  :  L 1 ,Co_tax_ln_A) :  - 
total_co_tax_ln_a(LiSubtotal )  , 

Co  tax  In  A  is  Subtotal  +  A. 


get_co_tax_rel_n( I ,co_tax_rel »co_tax_rel_n, 
CCo_tax_rel_N/l .01 > :  - 

findall (co_tax_rel ,data(_,co_tax  rel *  - 
L)  , 

length(L,Co_tax_rel_N) ,gc(full ) . 
get_co_tax_rel_a( I ,co_tax_rel »co_tax_rel_a, 
CCo_tax_rel_A/l .01) :  - 

findall ( Amount ,data(_,co_tax_rel Amount , _ , _ ) - 

>  A )  J 

total_co_tax_rel_a(A,Ca_tax_rel_A) , gc ( f ul 1 ) . 
to t a  1 _co_ t ax_re 1 _a ( C 1 9 0 ) : -  !. 
tatal_co_tax_rel_a(CA!L] 9Co_tax_rel_A) 
total_co_tax_rel_a(Li Subtotal ) 9 
Co_tax_rel_A  is  Subtotal  +  A. 

get_pb_cut_of f _val (  I  ,  cut_off 9 
pb_cut_of f _val , C PB_CUT_OFF_VAL/ 1 .01 ) :- 
PB_CUT_QFF_VAL  is  400  ,  gc  (  f  u  1  1  )  . 

get _ex tremel y_h i gh_cu t_of f _va 1 ( I ,  cut_off  , 

ex  treme ly_high_cut_off_val 9 

CE  X  TREMELY  _H I GH_CUT_0FF  _0AL/ 1.01):- 

EX  TREMEL Y_H I GH_CUT_ OFF _VAL  is  200 , gc ( f u 1 1  )  . 

get_very_high_cut_off_val  (  I  ,  cut__off  1 
very_high_cut_off_val  9 
[VERY_HIGH_CUT_OFF_VAL/ 1  .01  ) 

VER Y_H I GH_CUT_OFF_VAL  is  1 70 , gc ( f u  1  1  )  . 

get _h 1 gh_cut _o f f _va 1 (  I  9  cut_off ,  h igh_cut_of f _va  1  , 


moderate  1 y_h igh_cut_off_va 1  , 

[MODERATELY  _H  I  BH_CL)T_OFF_VAL/  1.03):- 

MO DERAT EL Y_H I GH_CUT _OFF_VAL  is  1 00 , gc ( f u 1 1 ) . 

get_ low_cat_off_val  (  I  , 

cut.Qff , low_cut_off_val , C  LOW_CUT_QFF_VAL/ 1.03):- 
LOW._CUT_OFF_VAL  is  80,gc(full>. 

get_very_low_cut_off_val ( I , 
cut_off,very_low_cut_off_val  > 

[VERY  _L0W_CUT_0FF_VAL/ 1.03):- 

VERY_LQW_CUT_OFF_VAL  is  10,gc(full>. 

get_extremely_low_cut_of f _val (1»  cut_off i 
ex tremel y_ 1 ow_cut _of f _va 1 , 

[  EXTREMELY_LOW_CLJT_OFF_VAL/  1.03):- 
EX  TREMEL Y_L0W_CUT_0FF_VAL  is  90,gc(full). 


/*  CRD13.RUL  (RULES)  */ 

/*  This  section  of  code  contains  synonyms  and  90  if 
then  rules  */ 

report ( cone luded  of  conclusion)  =  *The  person  is 
ordertconcluded  of  conclusion)  =  Cr,q3. 
pr eca 1 c ( per sona 1 )  =  Cssn, zip ,m_status3 . 
set ( customer _pr of i le_inf o  of  perserec)  = 
customer _prof i 1 e_ i nf o . 

set ( superpayer_info  of  perserec)  =  superpayer_inf o . 
set ( bankrup t_ i nf o  of  perserec)  =  bankrupt_info. 
set ( we i gh t_p t_ i nf o  of  perserec)  =  we i gh t_p t _ i nf o . 
set ( cut _of f _ i nf o  of  perserec)  =  cut _of f _ i nf o . 

name ( we i gh t _p t _ i nf o  of  perserec)  =  ignore, 
nane ( cut _off_ i nfo  of  perserec)  =  ignore. 

ques 1 1 on ( pb_cu t _of f _va  1  of  cut_off)  = 
get_pb_cut_of f _va  1  . 

ques t i on ( ex t r erne  1 y _h i gh _cu t _o f f _ va  1  of  cut_off)  = 
get_extremely_h igh_cut_off_val  . 
quest  ion ( very_h igh_cut_of f_va 1  of  cut_off )  = 
get_very_h igh_cut_of f _va 1  . 
ques t l o n ( h i gh _cu t _o f f _va 1  of  cut_off)  = 
get_high_cut_off_val  . 

ques  t  i  on  (  moderate  1  y_h  i  gh_cut  __of  f_va  1  of  cut_off)  = 
get _mod era t ely_high_cut_off_val  . 


quest ion< low_cut_off_val  of  cut_off)  = 
get_iow_cut_off_val . 

question( very_low_cut_off_val  of  cut_off)  = 
get_very_low_cut_off_val . 
quest i on ( ex tremel y_ 1 ow_cut _of f _va 1  of  cut_off)  = 
ge  t  _ex  t  rente  1  y_  1  ow_cut  _of  f  _va  1  . 

set ( cone  1 usion_ i nfo  of  perserec)  =  cone lus i on_ i nf o . 
set ( persona  1 _ i nfo  of  cus tomer _pr of i 1 e_ i nf o  of 
per serec ) = 
persona  1 _ i nfo . 

set ( trw_info  of  customer_prof i le_info  of  perserec )  = 
trw_ i nfo . 

set (del inq_info  of  trw_info  of  customer_prof i le_info  of 
perserec)  =  delinq_info. 
set ( d_60_ i nf o  of  delinq_info  of  trw_info  of 

customer _prof i le_inf o  of  perserec)  =  d_60_info. 
set ( d_90_ i nf o  of  delinq_info  of  trw_info  of 

customer_prof i le_inf o  of  perserec)  =  d_90_info. 
set (d_120_info  of  delinq_info  of  trw_info  of 

customer _prof i le_info  of  perserec)  =  d_120_info. 
set < d_ 1 50_ i nf o  of  delinq_info  of  trw_info  of 

customer _praf i le_info  of  perserec)  =  d_150_info. 
set ( d_ 1 80_ i nf o  of  delinq_info  of  trw_info  of 

custamer_praf i le_ info  of  perserec )  =  d_180_info. 
set(cur_was_info  of  trw_info  of  customer _prof i le_info 
of 

perserec)  =  cur _was_i nfo . 
set ( c_w_60_ i nf o  of  cur_was_info  of  trw_info  of 

customer_prof i le_info  of  perserec)  =  c_w_60_info . 
set ( c_w_90_info  of  cur_was_info  of  trw_ info  of 

customer _pr of i le_ i nfo  of  perserec)  =  c_w_90_info . 
set ( c_w_ 120_ i nf a  of  cur_was_info  of  trw_info  of 

customer _prof i le_info  of  perserec)  =  c_w_ 1 20_ i nf o . 
set ( c_w_ 1 50_ i nf o  of  cur_was_info  of  trw_info  of 

customer _prof i le_inf o  of  perserec)  =  c_w_ 1 50_ i nf o . 
set ( c_w_ 1 80_ i nf o  of  cur_was_info  of  trw_info  of 

cus tomer _pr of i 1 e_ i nfo  of  perserec)  =  c_w_l90_info. 
set ( pdbyd 1 r _ i nf o  of  trw_info  of 

cus tomer _prof i 1 e_ i nfo  of  perserec)  =  pdbyd 1 r _ i nfo . 
se t ( co 1 1 _acc t _ i nf o  of  trw_info  of  customer _prof i 1 e_ l nfo 
of 

perserec)=  co 1 1 _acc t _ i nf o . 
set ( charge-off _ i nfo  of  trw_info  of 
cus tomer _pr of i 1 e_ i nf o  of 

perserec )=charge_off_info . 
se t ( pd _co 1 1 _ac _ i nf o  of  trw_info  of 
customer _prof i le_ Info  of 

perserec)  =  pd _co 1 1 _ac _ i nfo . 


set ( inquiry_info  of  trw_info  of  cus tomer_prof 1 1 e_ i nf o 
of 

perserec)  =  i nqu i ry_ i nf o  . 

set ( cone lus ion_ i nfo  of  perserec)  =  conclusion_info. 
set ( f orec Insure, i nf o  of  trw_info  of 
customer_prof i le_info  of 
perserec)  =  f orec 1 osure_ i nfo . 
se t ( judgment _ i nfo  of  trw_info  of  custamer_prof i 2 e_ i nfo 
of 

perserec)  =  j udgment _ i nf o . 

set ( repo _ i nfo  of  trw_info  of  custamer_prof i le_i nf o  of 
perserec )  =  repo_info. 
set ( i nsc 1  a im_ i nfo  of  trw_info  of 

customer _pr of i 1 e_ l nfo  of  perserec)  = 
insc 1  a im_ i nfo . 

name <  i nsc 1  a im_ i nf o  of  trw)  =  ignore. 

quest  ion ( i nsc 1  a i m_n  of  insclaim)  =  ge t_ i nsc 1  a i m_n . 
quest  ion ( i nsc 1  a im_a  of  insclaim)  =  get _ i nsc 1  a i m_a . 

set ( no tpdaa_ i nf o  of  trw_info  of 

customer _prof i le_info  of  perserec )  =  notpdaa_info 
name ( no tpdaa_ i nf o  of  trw)  =  ignore, 
quest ion( notpdaa_n  of  notpdaa)  =  get_notpdaa_n . 
quest  ion ( notpdaa_a  of  notpdaa)  =  get _no tpdaa_a . 

set ( vo lnrepo_inf o  of  trw_info  ot 

customer _pr of i 1 e_ i nfo  of  perserec)  = 
vo 1 nrepo_ i nfo  . 

name ( vo 1  nr epo_ i nf o  of  trw)  =  ignore. 

ques t i on < vo 1  nr epo _n  of  volnrepo)  =  get _vo 1  nr epo _n . 
quest i on (  1  nr epo _a  of  volnrepo)  =  get _vo 1  nr epo _a . 

set ( cur waspd_ i nf o  of  trw_info  of  cus t omer _p r o f l 1 e_ i nf o 
of 

perserec)  =  cur waspd _ l nf o  . 
set(cwpd_info  of  curwaspd_info  of  trw_info  of 

cus t omer _pr o f i 1 e _ l nfo  of  perserec)  =  cwpd_info. 
set ( cwpd_30_ l nf o  of  cur waspd _ i nf o  of  trw_info  of 

customer _pr of i 1 e_ l nf o  of  perserec)  =  c wpd_30_ i nf o . 

set icwpd_30byE_info  of  cur waspd _ i nf o  of  trw_info  of 
customer _prof i le_info  of  perserec)  = 
cwpd_30by2_ i nf o . 

set (cwpd_30by3_info  of  cur waspd_ l nf o  of  trw_info  of 
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customer_prof i le_info  of  perserec)  = 
cwpd_30by3_info . 

set ( c wpd_30by4_ i nf o  of  curwaspd_info  of  trw_info  of 
customer _prof i le_inf o  of  perserec)  = 
cwpd_30by4_ i nfo . 

set ( cwpd_30by5_inf o  of  curwaspd_info  of  trw_info  of 
custamer_prof i le_info  of  perserec )  =  cwpd_30by5_ i nf a . 
set ( c wpd _30by6_ i nf o  of  cur waspd _ i nf o  of  trw_info  of 
cus tamer _pr of i 1 e_ i nfo  of  perserec)  =  cwpd_30by6_infa . 

set ( accpd_ i nf o  of  trw_info  of  customer _prof i le_info  of 
perserec)  =  accpd_info. 

set ( accpd_30_ i nf o  of  accpd_info  of  trw_info  of 
cus tomer _prof i 1 e_ i nf o  of  perserec)  = 
accpd_30_ i nf o . 


set ( accpd_30by2_ i nf a  of  accpd_info  of  trw_info  of 
customer _prof i le_info  of  perserec)  =  accpd_30by2_ 
set ( accpd_30by3_i nf o  of  accpd_info  of  trw_info  of 
customer _pr of i le_ inf o  of  perserec)  =  accpd_30by3_ 
set ( accpd_30by4_ i nf o  of  accpd_info  of  trw_info  of 
customer _prof i le_info  of  perserec )  =  accpd_30by4_ 
set ( accpd_30by5_i nfo  of  accpd_info  of  trw_info  of 
customer _prof i le_info  of  perserec)  =  accpd_30by5_ 
set (accpd_30by6_info  of  accpd_info  of  trw_info  of 
customer _praf i le_infa  of  perserec )  =  accpd_30by6_ 
set (pacc_wpd_info  of  trw_info  of  customer _prof i le 
of 

perserec)  =  pacc_wpd_ i nf o . 
se t ( pacc_wpd_30_ i nf o  of  pacc_wpd_ i nf o  of  trw_info 
customer _praf i le_info  of  perserec)  =  pacc_wpd_30 
set (pacc_wpd_30by23_info  of  pacc_wpd_ i nf o  of  trw_ 
of 

customer _prof i le_info  of  perserec)  = 
pacc_wpd_30by23_infa . 

set ( pacc_wpd_30by4_info  of  pacc_wpd_ i nf o  of  trw_i 
customer_prof i le_ info  of  perserec)  = 
pacc_wpd_30by4_info . 

se t ( pace _wpd_30by5_ i nfo  of  pace _wpd_ i nfo  of  trw_i 
cus tomer _pr of i 1 e_ l nfo  of  perserec)  = 
pace  wpd_30by5_ i nf o . 

set ( pacc_wpd_30by6_ i nf o  of  pace _wpd_ i nfo  of  trw_i 
customer _prof i le_info  of  perserec)  = 
pacc_wpd_30by6_ i nf o . 


i  nfo  . 

i  nfo  . 

i  nfo  . 

i  nfo  . 

i  nfo  . 
i  nfo 


of 

_  i  nfo 
l  nfo 


nfo  of 


nfo  of 


nfo  o  f 


se t ( su i t _ i nf o  of  trw_info  of 

cus tomer _pr of i 1 e_ i nfo  of  perserec) 
name ( su i t_ i nfo  of  trw)  =  ignore, 
quest i on ( su i t _n  of  suit)  =  get_suit_n. 
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quest ion( sui t_a  of  suit)  =  get_suit_a. 

name < cus tamer _praf i 1 e_ i nfo  of  perserec  )  =  ignore 
name < superpayer _ i nfo  of  perserec)  =  ignore, 
name ( bank rup t_ i nfo  of  perserec)  =  ignore, 
name ( cone lus i on_ i nfo  of  perserec )  =  ignore, 
name ( personal_ inf o  of  customer _prof i le )  =  ignore 
name< trw_inf o  of  customer _pr of i 1 e )  =  ignore, 
name C „ nqu i ry_ i nfo  of  trw)  =  ignore, 
name ( de 1 i nq_ i nfo  of  trw)  =  ignore. 

name ( d_60_ i nf o  of  delinq)  =  ignore, 
name ( d_90_ i nfo  of  delinq)  =  ignore, 
name < d_ 1 20_ i nfo  of  delinq)  =  ignore, 
name! d_ 1 50_ i nfo  of  delinq)  =  ignore, 
name ( d_ 1 60_ i nfo  of  delinq)  =  ignore. 

name ( cur _was_ i nf o  of  trw)  =  ignore, 
name < c _w_60_ i nfo  of  cur_was)  =  ignore, 
name ( c _w_90_ i nfo  of  cur_was>  =  ignore, 
name ( c _w_ 1 20_ i nfo  of  cur_was>  =  ignore, 
name! c_w_150_infa  of  cur_was>  =  ignore, 
name ( c _w_ 1 80_ i nf o  of  cur_was)  =  ignore. 

name ( co  1  1  _acc t __ i nf o  of  trw)  =  ignore, 
name < charge_off_ i nfo  of  trw)  =  ignore, 
name ( pd_co 1 1 _ac_ i nfo  of  trw)  =  ignore, 
name < for ec 1 osure_ i nfo  of  trw)  =  ignore, 
name < judgment_ i nfo  of  trw)  =  ignore, 
name ( repo_ i nfo  of  trw)  =  ignore, 
name ( pdbyd 1 r _ i nfo  of  trw)  -  ignore, 
name ( cur waspd_ i nfo  of  trw)  =  ignore, 
name ( cwpd _ i nfo  of  curwaspd  )  =  ignore, 
name ( cwpd _30_ inf o  of  curwaspd)  =  ignore. 

name < cwpd _30by2_ i nfo  of  curwaspd)  =  ignore, 
name ( cwpd_30bv3_ i nfo  of  curwaspd)  =  ignore, 
name < cwpd _30by4_ i nfo  of  curwaspd )  =  ignore, 

name ( cwpd_30by5_ l nfo  of  curwaspd )  =  ignore, 

name ( cwpd _30by6_ l nfo  of  curwaspd)  =  ignore. 

quest ion(cwpd_n  of  cwpd)  =  get_cwpd_n. 

quest ion( cwpd_a  of  cwpd)  =  get_cwpd_a. 

quest i on ( cwpd _30_n  of  cwpd_30)  =  ge t _c wpd _30_n . 

quest i on C cwpd_30_a  of  cwpd_30)  =  get _cwpd_30_a . 

quest  ion ( cwpd_30by2_n  of  cwpd_30by2)  = 

aet_cwpd_30by2_n . 
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quest ion(cwpd_ 
get  _c wpd  _30by2 
question(cwpd_ 
get_cwpd_30by3 
quest  ion  ( cwpd_ 
get  _c wpd_30by3 
quest i on ( cwpd_ 
get_cwpd_30by4 
quest  ion ( cwpd_ 
aet_cwpd_30by4 
question(cwpd_ 
get  _cwpd_3Uby5 
quest  ion ( cwpd_ 
get_cwpd_30by5 
question(cwpd_ 
get_cwpd_30by6 
question(cwpd_ 
get_cwpd_30by6 


30by2_a  of  cwpd_30by2>  = 
_a . 

30by3_n  of  cwpd_30by3)  = 

_n . 

30by3_a  of  cwpd_30by3>  = 

_a . 

30by4_n  of  cwpd_30by4)  = 
_n . 

30by4_a  of  cwpd_30by4)  = 
_a  • 

30byb_n  of  cwpd_30by5)  = 

_n . 

30by5_a  of  cwpd_30by5)  = 
_a . 

30by6_n  of  cwpd_30by6>  = 
_n  • 

30by6_a  of  cwpd_30by6)  = 


question(ssn  of  personal)  =  get_ssn. 

quest i on ( m_status  of  personal)  =  get_m_status . 

question(zip  of  personal)  =  get_zip. 

quest i on ( co 1 1 _acc t _n  of  col l_acct )  =  get_co 1 1 _acc t _n . 
ques t i on ( co 1 1 _acc t _a  of  coll_acct)  =  get_co 1 1 _acc t _a . 


quest  ion ( c_ 
quest  ion  ( c. 
quest i on ( c_ 
quest  ion  ( c 
quest  ion ( c 
quest  ion ( c 
quest i  on  <  c 
quest ion(c 
quest i on ( c 
quest i on  <  c 


quest i on ( d 
quest i on  (  d 
quest l on ( d 
quest  ion  <  d 
quest  ion ( d_ 
ques  tionld 
quest i on ( d 
quest  ion ( d 
quest i on ( d_ 
quest ion( d 


w_60_n  of  c _ 
w_60_a  of  c_ 
w_90_n  of  c _ 
w_90_a  of  c _ 
w_120_n  of  c 
w_120_a  of  c 
w_150_n  of  c 
w_150_a  of  c 
w_180_n  of  c 
w  180  a  of  c 


w_60)  =  get_c_w_60_n. 
w_60)  =  get_c_w_60_a. 
w_90)  =  get_c_w_90_n . 
w_90)  =  get_c_w_90_a. 
_w_120>  =  get_c_w_120_n. 

_w_120)  =  get_c_w_120_a . 
_w_ 1 50 )  =  get_c_w_l 50_n . 
_w_ 1 50 )  =  get_c_w_l 50 _ a  . 
_w_180)  =  get _c _w_ 1 80_n . 
_w_180)  =  get_c_w_180_a . 


60_n  of  d_ 
60_a  of  d_ 
90_n  of  d_ 
90_a  of  d_ 
120_n  of  d 
120_a  of  d 
150_n  of  d 
150_a  of  d 
180_n  of  d 
180  a  of  d 


60)  =  get_d_60_n. 
60)  =  get_d_60_a. 
90)  =  get_d_90_n. 
90)  =  get_d_90_a. 

_  1 20  )  =.  ge  t  _d_  1 20_n 
_ 1 20 )  =  get_d_ 1 20_a 
_150)  =  get_d_150_n 
_150)  =  get_d_150_a 
_180)  =  get_d_180_n 
_ 1 80 )  =  get_d_180_a 


name ( accpd_ i nf o  of  trw)  =  ignore. 


I 


name < accpd_30_ i nf o  of  accpd )  =  ignore, 
name ( accpd _30by2_ i nf o  of  accpd)  =  ignore. 
name( accpd_30by3_inf o  of  accpd)  =  ignore. 
name< accpd_30by4_i nfo  of  accpd)  =  ignore, 
name ( accpd_30by5_ i nf o  of  accpd)  =  ignore. 
name( accpd_30by6_info  of  accpd)  =  ignore. 

quest xon( accpd_30_n  of  accpd_30)  =  get_accpd_30_n 
quest i on ( accpd_30_a  of  accpd_30)  =  get _accpd _30_a 
quest ion( accpd_30by2_n  of  accpd_30by2)  = 
get_accpd_30by2_n. 

quest ion(accpd_30by2_a  of  accpd_30by2)  = 
get_accpd_30by2_a . 

quest  ion ( accpd_30by3_n  of  accpd_30by3)  = 
get_accpd_30by3_n . 

quest  ion ( accpd_30by3_a  of  accpd_30by3)  = 
get_accpd_30by3_a . 

quest  ion ( accpd_30by4_n  of  accpd_30by4>  = 
get_accpd  _30by4_n . 

quest i on ( accpd_30by4_a  of  accpd_30by4>  = 
get_accpd_30by4_a . 

quest  ion ( accpd_30by5_n  of  accpd_30by5)  = 
get_accpd_30by5_n . 

quest  ion ( accpd_30by5_a  of  accpd_30by5)  = 
get_accpd_30by5_a . 

quest  ion ( accpd_30by6_n  of  accpd_30by6)  = 
get_accpd_30by6_n . 

quest  ion ( accpd _30b y6_a  of  accpd_30by6>  = 
get_accpd_30by6_a . 

name(pacc_wpd_info  of  trw)  =  ignore, 
name ( pacc_wpd_30_ i nfo  of  pacc_wpd>  =  ignore, 
name ( pacc_wpd_30by23_ i nfo  of  pacc_wpd )  =  ignore, 
name (pace _wpd_30by4_ i nfo  of  pacc_wpd)  =  ignore, 
name < pacc_wpd _30by5_ i nfo  of  pacc_wpd)  =  ignore, 
name ( pacc_wpd_30by6_ i nf o  of  pacc_wpd)  =  ignore. 

ques t i on ( pace _wpd_30_n  of  pacc_wpd_30>  = 
get_pacc_wpd_30_n . 

ques  t  1  on  (  pace  _wpd  _30__a  of  pacc_wpd_3C)  = 
qe t _p acc _wpd _30 _a . 

question , pacc_wpd_30by23_n  of  pacc_wpd_30by23 )  = 
get  _pacc  _wpd _30by23_n . 

quest i on ( pace _wpd_30by23_a  of  pacc_wpd_30by23 )  = 
ge t  _p  acc  _wpd_30by23_a . 

ques t i o n ( p acc _wpd _30by4_n  of  pace _wpd_30by4  )  = 

get_pacc_wpd_30by4_n . 

quest  ion ( pacc_wpd_30by4_a  of  pace _wpd_30by4 )  = 


get_pacc_wpd_30by4_a . 

quest i on < pacc_wpd_30by5_n  of  pacc_wpd_30by5 )  = 
get_pacc_wpd_30by5_n . 

quest  ion ( pacc_wpd_30by5_a  of  pacc_wpd_30by5 )  ~ 
get_pacc_wpd_30by5_a . 

quest  ion ( pacc_wpd_30by6_n  of  pacc_wpd_30by<£> )  = 
get_pacc_wpd_30by6_n . 

quest  ion ( pacc_wpd_30by6_a  of  pacc_wpd_30by6 )  - 
get_pacc_wpd_30by6_a . 

quest  ion ( bk_va Is  of  trw)  =  get_bk_vals. 

quest i on ( forec 1 osare_we i gh t_va 1  of  foreclosure)  = 

get_fclos_vals. 

quest i on ( judgment _we i gh t _va 1  of  judgment)  = 
get _  judgment _va 1 s . 

quest ion( repo_weight_va 1  of  repo)  =  get_repo_va 1 s . 

quest  ion ( charge_off_n  of  charge_off>  = 
get_charge_off_n. 

quest  ion ( charge_off_a  of  charge_off )  = 
get_charge_off_a. 


quest  ion < pd_co 1 1 _ac_n  of  pd_coll_ac>  = 
get_pd_coll_ac_n. 

quest  ion ( pd_co 1 1 _ac_a  of  pd_coll_ac)  = 
get_pd_coll _ac_a . 

ques t i on ( no_of _ i nq  of  inquiry)  =  check_recent_ i nq . 
quest  ion < curr_acct_n  of  superpayer )  =  get_curr_acct_n . 

quest i on ( pdbyd 1 r_n  of  pdbydlr)  =  get _pdbyd 1 r _n . 
quest  ion ( pdbyd lr_a  of  pdbydlr)  =  get_pdbyd 1 r _a . 

set < pacc_wde 1 _ i nf o  of  trw_info  of  cus tomer _pr of i 1 e_ i nf o 
of 

perserec)  =  pace _wde 1 _ i nf o . 
set ( pacc_wde 1 60_ i nf o  of  pacc_wdel_info  of  trw_info  of 
cus tomer _pr of i 1 e_ i nfo  of  perserec)  = 
pacc_wdel60_info . 

se t ( pace _wde 1 90_ i nfo  of  pace _wde 1 _ i nfo  of  trw_info  of 
customer _prof i le_ inf o  of  perserec)  = 
pacc_wde 1 90_ i nf o . 

set ( pace _wde 1 1 20_ i nfo  of  pace _wde 1 _ i nf o  of  trw_info  of 
customer _prof i 1 e_ i nfo  of  perserec  )  =  pacc_wdel 120_info. 
set ( pace _wde 1 1 50_ i nfo  of  pace _wde 1 _ i nfo  of  trw_info  of 
customer  _prof  i  le__  inf  o  of  perserec  )  =  pacc_wdel  I50_info  . 
set {pace  wdell80_info  of  pacc_wdel_info  of  trw_info  of 


customer _prof i le_ i nfo  of  perserec)  =  pace _wde 1 1 80_ 1 nf o 

name ( pace _wde 1 _ i nfo  of  trw)  =  ignore, 
name  (  pacc_wdel60__  i  nfo  of  pacc_wdel  )  =  ignore, 
name ( pacc_wde 1 90_ i nfo  of  pacc_wdei )  =  ignore, 
name < pacc_wde 1 1 20_ i nfo  of  pacc_wdel )  =  ignore, 
name < pacc_wde 1 1 50_ i nfo  of  pacc_wdel )  =  ignore, 
name ( pacc_wde 1 1 80_ i nfo  of  pacc_wdel )  =  ignore. 


ques t i on  <  pace  _wde 1 60 _ 
get  _pacc_wde 160_n . 
question(pacc_wdel60_ 
get_pacc_wde 1 60 _ a . 
quest ion(pacc_wdel90_ 
get  _p ace _wde 1 90 _n . 
quest ion(pacc_wdel90_ 
get _p ace _wde 1 90_a . 
quest ion(pacc_wdel 120 
get_pacc_wdel 120_n . 
quest  ion (pacc_wdel 1 20 
get_pace_wdel 120_a . 
question(pacc_wdel 1 50 
get_pacc_wdel 150_n . 
ques t i on ( pace _wdel 150 
get_pacc_wdel 150_a. 
quest  ion ( pacc_wdel 1 80 
qet_pacc_wdel 180_n. 
question(pacc_wdel 180 
get_pacc_wdel 180_a. 


n  of  pacc_wdel60)  = 
a  of  pacc_wdel60)  = 
n  of  pacc_wdel90)  = 
a  of  pacc_wde 1 90 )  = 
>_n  of  pacc_wde  1  120  )  = 
_a  of  pacc_wde 1 1 20 )  = 
_n  of  pace _wde 1 1 50 )  = 
_a  of  pacc_wdel 150)  = 
_n  of  pacc_wdel 180 )  = 
i_a  of  pacc_wde 1 1 80 )  = 


set < pd _repo_ i nfo  of  trw_info  of  cus tomer _prof i 1 e_ i nf o 
of 

perserec )  =  pd _r epo _ i nf o . 

name ( pd_repo_ i nfo  of  trw)  =  ignore. 

quest  ion ( pd_repo_n  of  pd_repo )  =  get_pd_repo_n . 

quest  ion ( pd_repo_a  of  pd_repo)  =  ge t _pd _repo _a . 

se t ( pd  chg _of f _ i nf o  of  trw_info  of 

cus t omer _pr o f i 1 e_ l nf o  of 

perserec)  =  pd _chg _o ff _ i nf o . 

name ( pd _chg _o f f_ i nfo  of  trw)  =  ignore. 

quest  ion < pd_chg_off_n  of  pd_chg_off)  = 

get_pd_chg_off_n. 

quest  ion(  pd_chg_off_a  of  pd__chg_off)  = 
get_pd_chg_off_a. 


set(pd  foreclo_info  of  trw_info  of 
customer  profile  info  of 
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perserec)  =  pd_forec lo_info . 

name < pd _f orec 1 o _ i nf o  of  trw)  =  ignore. 

quest  ion ( pd _f or ec 1 o _n  of  pd_foreclo>  = 

get_pd_foreclo_n. 

ques t i on < pd _f orec 1 o_a  of  pd^toreclo)  = 
get_pd_foreclo_a. 

set ( bk 1 iqreo_info  of  trw_info  of  customer_prof i ie_ i nf o 
ot 

perserec )  =  bk 1 i qreo_ i nf a . 

name ( bk 1 iqreo_ l nf o  of  trw)  =  ignore. 

ques t i o n ( b k 1 i q r eo _n  of  bkliqreo)  =  get_bk 1 iqreo_n . 
quest  ion ( bk 1 iqreo_a  of  bkliqreo)  =  get_bk 1 iqreo_a . 
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set ( sett led_i nfo  of  trw_info  of  cus tomer_prof i 1 e_ i nf o 
of 

perserec)  =  set 1 1 ed_ i nf o  . 

name ( set t led_ i nfo  of  trw)  =  ignore. 

quest i on < set t 1 ed_n  of  settled)  =  get _set t 1 ed_n . 

quest i on ( set t 1 ed_a  of  settled)  =  get _set t 1 ed _a . 


set ( bk_ad j_p ln_ i nfo  of  trw_info  of 

customer _pr of i 1 e_ i nfo  of 

perserec)  =  b k _ad j _p 1 n_ i nf o . 

name ( bk_ad j _p 1 n_ i nfo  of  trw)  =  ignore. 

quest  ion ( bk _ad j _p 1 n_n  of  bk_adj_pln)  = 

get_bk_adj_pln_n. 

quest  ion ( bk_ad j_p ln_a  of  bk_adj_pln)  = 
get_bk_adj_pln_a. 


se t ( scnl _nw 1 oc_ i nf o  of  trw_info  of 

cus tomer _pr of i 1 e_ i nf o  of 

perserec)  =  sen  1 _nw 1 oc _ i nf o  . 

name ( sen  1 _nw loc _ i nfo  of  trw)  =  ignore. 

ques t i o n ( sc n 1 _nw 1 oc_n  of  scnl_nwloc)  = 

get_scnl _nw 1 oc  _n . 

ques t l o n ( sc n 1 _nw 1 oc _a  of  scnl_nwloc)  = 
get_scnl_nwloc_a. 


set  (  co_now_pay_  i  nf  o  of  trw_mfo  of 
cus tamer _pr of i 1 e_ i nfo  of 
perserec )  =  co_naw_pay_ i nf o . 
namelco  now_pay_info  of  trw)  =  ignore, 
ques t i o n ( co _now_p ay _n  of  co_now_pay)  = 
get_co_now_pay_n . 
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quest  ion ( co_now_pay_a  of  co_now_pay>  = 
qet_co_now__pay_a. 

set ( f ore_proc _ i nf o  of  trw_info  of  customer_prof 1 le_ i nf o 
of 

persereci  =  fore__proc_info  . 

name ( t ore_proc_ i nf o  of  trw)  =  ignore. 

quest  1  on ( fore_proc_n  of  fore_proc)  =  get_fore_proc_n . 
quest ion( fore_proc_a  of  fore_proc)  =  get _f or e_pr oc _a . 

set ( gov _c 1  a i m_ i nf a  of  trw_info  of  cus tomer _pr of i 1 e_ i nf o 
o  t 

perserec )  =  gov_c laim_info . 

name ( go v_c 1  a i m_ i nf o  of  trw)  =  ignore. 

quest i on ( go v_c 1  a i m_n  of  gov_claim)  =  ge t _go v_c 1  a l m_n . 
quest  ion i gov_c 1  a im_a  of  gov_claim)  =  get_go v_c 1  a i m_a . 

set (c lose_np_aa_info  of  trw_info  of 

customer _profi le_info  of 

perserec)  =  close_np_aa_info. 

name (c lose_np_aa_info  of  trw)  =  ignore. 

quest l on ( c lose_np_aa_n  of  close_np_aa)  = 

get_c lose_np_aa_n . 

quest  ion ( c lose_np_aa_a  of  close_np_aa)  = 
get_close_np_aa_a. 

set ( scnl _ i nfo  of  trw_info  of  customer_prof i 1 e_ i nf o  of 

perserec)  =  scnl__info. 

name < sen  1 _ i nfo  of  trw)  =  ignore. 

quest i on ( sen  1 _n  of  scnl)  =  get_scnl_n. 

quest  ion ( sen  1 _a  of  scnl)  =  get_scnl_a. 

set ( f ed _ tax_ 1 n_ i nf o  of  trw_info  of 

cus t omer _p r o f l 1 e_ i nf o  of 

perserec)  =  f  ed  _  t  a  x  _  1  n__  i  nf  o  . 

name ( f ed _ t a x _ 1 n _ l nf o  of  trw)  =  ignore. 

ques  1 1  o  n  (  f  ed  _  t  a  x  __  1  n_n  of  fed_tax_ln)  = 

qet  _f ed _tax_ln_n. 

question <fed_tax_ln_a  of  fed_tax_ln)  = 
get_fed_tax_ln_a. 

settfed_tax_rel_info  of  trw_into 
cus tamer _p r of l 1 e_ i nfo  of 
P'rserec)  =  fed_tax_rel_info. 


name ! f ed_tax_re 1 _ i nf o  of  trw)  =  ignore, 
question! f ed_tax_re 1 _n  of  fed_tax_rel ) 
get_fed_tax_rel_n. 

quest  ion ( f ed_tax_re 1 _a  of  fed_tax_rel ) 
get_fed_tax_rel_a. 

set ( judgmt_sat_info  of  trw_info  of 

customer _prof i le_inf o  of 

perserec )  =  judgmt_sat_info . 

name ( judgmt_sat_info  of  trw)  =  ignore. 

question! judgmt_sat_n  of  judgmt_sat>  = 

get_judgmt_sat_n. 

question! judgmt_sat_a  of  judgmt_sat)  = 
get_judgmt_sat_a. 


set ( judg_vacat_info  of  trw_info  of 
customer _prof i le_ info  of 
perserec)  =  judg_vacat_i nf o . 
name! judg_vacat_info  of  trw)  =  ignore, 
question! judg_vacat_n  of  judg_vacat>  = 
get_ judg_vacat_n. 

question! judg_vacat_a  of  judg_vacat>  = 
get_ judg_vacat_a. 


set ! mech_ 1 i en_ i nf o  of  trw_info  of  cus tomer _pr of i 1 e_ i nf o 
of 

perserec )  =  mech_lien_info. 
name!mech_l ien_info  of  trw)  =  ignore. 

quest i on ( mech_l i en_n  of  mech_lien)  =  get_mech_ 1 i en_n . 
quest  ion ! mech_ 1 ien_a  of  mech_lien>  =  get_mech_l ien_a. 


set ( mech_r e 1 e_ i nf o  of  trw_info  of  customer _pr of i 1 e_ i nfo 
o  f 

perserec)  =  mech_re 1 e_ i nf o . 

name ( mech _re le_ i nfo  of  trw)  =  ignore. 

ques t i on ! mech _r e 1 e_n  of  mech  rele)  =  get _mech_re 1 e_n . 
ques t i on ( mech_r e 1 e_a  of  mech_rele)  =  get_mech_rele_a . 


set ! mn_mtg_f i 1 _ i nf o  of  trw_info  of 

cus tomer _prof i 1 e_ i nfo  of 

perserec)  =  mn_mtg _f i 1 _ i nf o . 

name ( mn_mtg_f i 1 _ i nfo  of  trw)  =  ignore. 

quest  ion ! mn_mtg_f i 1 _n  of  mn_mtq_fil)  = 

get_mn_mtg_fi l_n. 

ques t i on ! mn_mtg_f i 1 _a  of  mn_mtg_fil)  = 
get_mn_mtg_f i 1 _a . 
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set  (nt_respon_info  of  trw_info  of  customer_prof  i  1  e_ i nf  o 
of 

perserec)  =  nt_respon_ i nf o . 

name( nt_respon_info  of  trw)  =  ignore. 

quest  ion ( nt_respon_n  of  nt_respon)  =  get_nt_respon_n . 
quest ion( nt_respon_a  of  nt_respon>  =  get_nt_respon_a . 


set ( stat _ t x_ 1 n_ i nf o  of  trw_infa  of 

cus tomer _prof i 1 e_ i nf o  of 

perserec )  =  stat_tx_ln_inf a . 

name  (  stat  _t  x_  1  n_  i  nf  o  of  t’-w)  =  ignore. 

quest ion< stat_tx_ln_n  of  stat_tx_ln>  = 

get_stat_tx_ln_n. 

quest ion( stat_tx_ln_a  of  stat_tx_ln)  = 
get_stat_tx_ln_a. 

set ( sta_ t x_r e 1 _ i nf o  of  trw_info  of 

customer _prof i 1 e_ i nfo  of 

perserec)  =  sta_t x_re 1 _ i nf o . 

name ( sta_tx_re 1 _ i nfo  of  trw)  =  ignore. 

quest  ion ( sta_tx_rel_n  of  sta_tx_rel>  = 

get_sta_tx_rel_n. 

quest  ion < sta_t x_re 1 _a  of  sta_tx_rel>  = 
get_sta_tx_rel_a. 


set ( sui t_d ismd_inf o  of  trw_info  of 

customer _prof i ie_info  of 

perserec )  =  su i t_d i smd_ i nf o . 

name ( su i t_d i smd_ inf o  of  trw)  =  ignore. 

quest  ion ( su i t _d ismd_n  of  suit_dismd)  = 

get_suit_di smd_n . 

quest i on ( su i t _d i smd_a  of  suit_dismd)  = 
get_suit_di smd_a . 


set ( wage_as ign_ i nf o  of  trw_info  of 

customer _prof i le_info  of 

perserec)  =  wage_as i gn_ i nf o  . 

name ( wageas i gn_ i nfo  of  trw)  =  ignore. 

quest i on ( wage_as ign_n  of  wage_asign>  = 

get_wage_asign_n. 

quest i on ( wage_as ign_a  of  wage_asign)  = 
get_wage_asign_a . 
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set < wa_re lease. i nfo  of  trw_info  of 

customer _prof i 1 e_ i nfo  of 

perserec)  =  wa_release_info. 

name ( ware 1  ease. i nfo  of  trw)  =  ignore, 

ques t i on ( wa_re 1 ease_n  of  wa_release)  = 

get  _wa_r e 1 ease_n . 

quest  ion ( wa_re 1 ease_a  of  wa_release)  - 
get _wa_r e 1 ease_a . 

set ( r ef i nanced_ i nf o  of  trw_info  of 

cus tomer _prof i 1 e_ i nf o  of 

perserec)  =  ref inanced_info. 

name ( ref i nanced_ i nf o  of  trw)  =  ignore, 

quest  ion ( ref i nanced_n  of  refinanced)  • 

get_ref  i  na.  iced_n  . 

quest  ion ( ref i nanced_a  of  refinanced)  = 
get_ref i nanced_a . 


set ( cr_cd_lost_info  of  trw_info  of 

customer _prof i le_info  of 

perserec)  =  cr_cd_lost_info . 

name < cr_cd_ 1 ost_ i nfo  of  trw)  =  ignore 

quest  ion ( cr_cd_l ost_n  of  cr_cd_lost) 

get_cr_cd_lost_n. 

question<cr_cd_lost_a  of  cr_cd_lost)  •• 
qet_cr_cd_lost_a . 


set < c los_ i nac_ i nf o  of  trw_info  of  customer _prof i ie_inf o 
of 

perserec)  =  c los_inac_info . 

name ( c 1 os_ i nac_ i nfo  of  trw)  =  ignore. 

quest  ion ( c los_ i nac_n  of  clos_inac)  =  get_c 1 os_ i nac_n . 
quest i on ( c los_ i nac_a  of  clos_inac>  =  get_c los_inac_a. 


set( transfered_info  of  trw_info  of 

cus tomer _pr of i 1 e_ i nfo  of 

perserec)  =  tr ansf ered_ i nf o . 

name ( transfered_ i nfo  of  trw)  =  ignore, 

quest  i  on  (  tr  ansf  ered  _n  of  fansfered)  = 

get _tr ansf ered_n . 

quest ion( transfered_a  of  transfered)  = 
get_transfered_a . 


set ( too _new_r t _ i nf o  of  trw_info  of 
customer _prof i 1 e_ i nfo  of 
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perserec)  =  too_new_rt_info . 
name( too_new_rt_info  of  trw)  =  ignore, 
quest  ion ( too_new_r t_n  of  too_new_rt)  = 
get_too_new_r t_n . 

quest ion< too_new_rt_a  of  too_new_rt)  = 
get_too_new_r t_a . 

se t ( pa i d_sat i s_ i nf o  of  trw_info  of 

customer _pr of i 1 e_ i nfo  of 

perserec)  =  pa id_sa t i s_ i nf o . 

name ( pa i d_sat i s_ i nf o  of  trw)  =  ignore. 

quest  ion ( pa i d_sat i s_n  of  paid_satis)  = 

get_pa id_sat i s_n . 

quest  ion ( paid_sat i s_a  of  paid_satis)  = 
get_paid_sat is_a . 

set (paid_acct_info  of  trw_info  of  customer _pr of i le_info 
of 

perserec)  =  paid_acct_info . 

name < pa id_acc t _ inf a  of  trw)  =  ignore. 

question* paid_acct_n  of  paid_acct)  =  get_pa i d_acc t_n . 
quest  ion < pa id_acct_a  of  paid_acct>  =  get_pa i d_acc t_a . 

set ( deceased_ i nf o  of  trw_info  of  customer  profile  info 
of 

perserec)  =  deceased_ i nf o . 

name ( deceased_ i nfo  of  trw)  =  ignore. 

quest  ion ( deceased_n  of  deceased)  =  get_deceased_n . 
quest i on ( deceased_a  of  deceased)  =  get_deceased_a . 

set (cr_ln_clos_infa  of  trw_info  of 

customer _praf i le_infa  of 

perserec)  =  cr_ln_c las_infa . 

name ( cr _ 1 n_c 1 os_ i nf o  of  trw)  =  ignore. 

quest i on ( cr_ 1 n_c 1 os_n  of  cr_ln_clos)  = 

get_cr_ln_clos_n. 

quest l on ( cr _ 1 n_c 1 os_a  of  cr_ln_clos)  = 
get_cr_ln_clos_a. 

set (redmd_repo_info  of  trw_info  of 

customer _prof i le_info  of 

perserec)  =  r edmd_r epo_  i  nf o  . 

name ( redmd_repo_ i nfo  of  trw)  =  ignore. 

quest  ion  (  redind_repa_r,  of  r  eciiitd  _r  cpo  )  = 

get  _redmd_r epo_n . 

quest i on ( redmd_repo_a  of  redmd_repo)  = 
get_redmd_repo_a . 


set ( cur_was_co 1 _ i nf o  of  trw_info  of 

customer _prof i le_info  of 

perserec)  =  cur_was_col_info. 

name ( cur _was_co 1 _ i nfo  of  trw)  =  ignore. 

quest i on ( cur _waS_co 1 _n  of  cur_was_col ) 

get  _cur _was_co 1 _n . 

question(cur_was_col_a  of  cur_was_col) 
get_cur_was_co 1  _a . 

set < cr_ 1 n_r ns t_ i nfo  of  trw_info  of 
customer _prof i 1 e_ i nfo  of 
perserec )  =  cr_ln_rnst_info. 
name(cr_ln_rnst_inf o  of  trw)  =  ignore, 
quest  ion ( cr_ 1 n_rnst_n  of  cr_ln_rnst)  = 
get _cr  _ 1 n_r ns t_n . 

quest i on ( cr_ 1 n_rnst_a  of  cr_ln_rnst )  = 
qet  cr  In  rnst  a. 


set ( cur _was_f or _ i nf o  of  trw_info  of 
customer _prof i le_infa  of 
perserec)  =  cur_was_for_info. 
name(cur_was_for_info  of  trw)  =  ignore, 
quest ion(cur_was_f ar_n  of  cur_was_for)  = 
get_cur _was_for _n . 

quest  ion ( cur _was_f or _a  of  cur_was_for>  = 
get_cur_was_for_a . 

set ( pd_no t_aa_ i nf o  of  trw_info  of  customer _pr of i 1 e_ i nfo 
of 

perserec)  =  pd_no t _aa_ i nf o . 

name ( pd_no t_aa_ i nfo  of  trw)  =  ignore. 

quest ion< pd_not_aa_n  of  pd_not_aa)  =  get_pd_not_aa_n . 
ques t i on ( pd_no t_aa_a  of  pd_not_aa)  =  get_pd_no t_aa_a . 


se t ( c i t y _ t x _ 1 n_ i nf o  of  trw_info  of 

cus tomer _pr of i 1 e_ i nf o  of 

perserec)  =  c i ty_ t x_ 1 n_ i nf o . 

name ( c i ty_ t x_ 1 n_ i nfo  of  trw)  =  ignore. 

aues t i on ( c l t y _ t x _ 1 n_n  of  city_tx_ln)  = 

get_city_tx_ln_n. 

ques t i on ( c i t y _ t x_ 1 n_a  of  city_tx_ln)  = 
get_city_tx_ln_a. 
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set < c i ty_tx_rel _ inf o  of  trw_info  of 

customer_prof i le_info  of 

perserec)  =  c i ty_t x _re 1 _ i nf o . 

name < c i ty_ t x_re 1 _ i nf o  of  trw)  =  ignore. 

quest i on ( c i ty_tx_re 1 _n  of  city_tx_rel>  = 

get_city_tx__rel_n. 

quest  ion < c i ty_tx_re l_a  of  city_tx_rel>  = 
get_city_tx__rel_a. 

set  (  conse  1  _ser  _  i  nf  o  of  trw_infa  of 

customer_prof i le_info  of 

perserec )  =  consel_ser_info . 

name ( conse 1 _ser _ i nf o  of  trw)  =  ignore. 

quest  ion ( conse 1 _ser_n  of  consel_ser>  = 

get  _conse 1 _ser _n . 

quest ion< consel _ser_a  of  consel_ser )  = 
ge t_conse 1 _ser _a . 


set ( co_tax_ 1 n_ i nf o  of  trw_info  of  cus tomer _prof i 1 e_ i nf o 
of 

perserec )  =  co_tax_ln_info . 

name < co_tax_ 1 n_ i nfo  of  trw)  =  ignore. 

quest i on ( co_ tax_ 1 n_n  of  co_tax_ln)  =  get_co_tax_ 1 n_n . 
quest  ion ( co_tax_ ln_a  of  co_tax_ln)  =  get _co_tax _ 1 n_a . 


set<co_tax_rel_info  of  trw_info  of 

customer _profi le_ i nfo  of 

perserec)  =  co_tax_rel_info. 

name< co_tax_rel_info  of  trw)  =  ignore. 

quest i on ( co_tax_re 1 _n  of  co_tax_rel)  = 

get_co_tax_rel_n. 

quest i on ( co_tax_re 1 _a  of  co_tax_rel)  = 
get_co_tax__rel_a. 

synonym ( cone  1 uded ) =  *  the  conclusion  *. 
synonym ( cone lus i on ) =  S  the  current  case  *. 
synonym < we i gh t_p t ) =*  the  current  case  *. 
synonym(overal l_weight_val )=$overal 1  calculated 
weight*. 

synonym ( weight_p t_ i nfo ) =*  current  case’s  total 
we i gh  ts* . 

synonym! weight_pt_va 1 )  =  Sabove  weight*, 
synonym ( cut _o f f )=* the  range  0-200  that  we  use*, 
synonym ( cut _off_ i nfo ) =*de ter m i ned  cut  off  values*. 
synonym(potential_bankrupt)=*potential  bankrupt*, 
synonym ( pb _cut _of f_va 1 ) =*po tent i a  1  bankrupt  cut  off 
va 1 uet . 


it 
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synonym ( very_cr i t ical _cut_off_va 1 ) =$very  critical  cut 
off  value*. 

synonym < cr i t ica 1 _cut _off_va 1 ) =  *c r i t i ca 1  cut  off  value*. 

synonym ( ser i ous_cut _off_va 1 ) =*ser i ous  cut  off  value*, 
synonym c very_poor _cut_off_va 1 ) =*very  poor  cut  off 
value* . 

synonym ( poor _cut _off_va 1 ) =*poor  cut  off  value*, 
synonym ( sat i sfac tory_cut_off _va 1 ) =*sa t i sfac tor y  cut  off 
value* . 

synonym ( norma  1 _cut _off_va 1 ) =*norma 1  cut  off  value*. 


/*  Synonyms  for  easier  user  recognition  */ 

synonym (conclusion_i nf o  >=*current  case*, 
synonym ( too_many_acc ts ) =*Too  many  accounts*, 
synonym ( curr _acc t_n ) =*number  of  current  accounts*, 
synonym ( super payer _ i nf o ) =*Super payer * . 
synonym (alarmingly_high)=*alarmingly  high*, 
synonym ( extremely, low) =*ex  tr erne  1 y  low* . 

synonym! ex treme 1 y_ 1 ow_cut_of f_val ) =*the  extremely  low 
cut  off  value*, 
synonym ( very, 1 ow ) =*very  low*. 

synonym ( very _ low_cut_of f _va 1 ) =*very  low  cut  off  value*, 
synonym! 1 ow_cut _of f _va 1 )=*low  cut  off  value*, 
synonym ( very _poor ) =4ver y  poor*. 

synonym ( moderate ly_h igh_cut _off_va 1 ) =*moder ate  1 y  high 
cut  off  value*. 

synonym ( h i gh_cut_off_va 1 ) =*h i gh  cut  off  value*, 
synonym! very_high_cut,off_val )=*very  high  cut  off 
value* . 

synonym ( very_cr i t i cal )=*very  critical*, 
synonym ( extreme ly_high)=*extremely  high*. 

synonym ( ex treme 1 y_h igh_cut_of f _va 1 ) =*ex treme 1 y  high  cut 
off  value*. 

synonym < pub  1 i c _record _va 1 ) =*pub  1  i  c  record  val*. 
synonym ( pr i va te_r ecord _va 1 ) =*pr i vat e  record  value*, 
synonym ( we ighted_dec ision)=*weighted  dec lsion* . 
synonym ( se t  _o f _b  kr p  t s_and _ liens_weight_val )=*the 

calculated  weights  for  all  bankruptcies  and  liens*, 
synonym (set_of_misc_publ ic_items_weight_val )=*the 

calculated  weights  for  all  miscellaneous  public 
l terns* . 

synonym(set_of_current_and_paid_acc  t s_we ight_val >  =* t he 
calculated  weights  for  all  current  and  paid 
accounts* . 
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synonym (set_of_del i nq _acc  ts_ we ight_val)=*the  calculated 
weights  for  all  delinquent  accounts*, 
synonym  <set_of_misc_private_i t ems_we ight_val >  =  * the 

calculated  weights  for  all  m i see  1 1 aneous  private 
i terns* . 

synonym < bk_ad j _p 1 n_we igh t _va 1 )=* the  calculated  weight 
for  debt  included  or  discharged  through  bankruptcy 
chapter  13*. 

synonym < bk_ad j _p 1 n_i nf a ) =*the  current  case*, 
synonym ( bk 1 iqreo_we i gh t_va 1 ) =*the  calculated  weight  for 
debt  included  or  discharged  through  bankruptcy 
chapter  7  or  11*. 

synonym < bk 1 iqreo_ i nfo )=* the  current  case*, 
synonym ( bk_va 1 s ) =*the  calculated  weight  for  bankruptcy 
filed*  dismissed  or  completed  in  chapters  7,  11  or 

13*. 

synonym ( trw_i nfo ) =*the  current  case*. 

synonym ( mech_ 1 ien_weight_val ) =*the  calculated  weight 
for  mechanics  lien*. 

synonym ( mech_ 1 ien_ i nfo ) =*the  current  case*, 
synonym ( mech_re le_we ight_va 1 )=* the  calculated  weight 
for  mechanics  lien  released*, 
synonym < mech_rele_ i nfo ) =*the  current  case*. 
synonym(fed_tax_ln_weight_val >=*the  calculated  weight 
for  federal  tax  lien*. 

synonym(fed_tax_ln_info )=*the  current  case*, 
synonym ( f ed_tax_rel_weigh t_va 1 ) =*the  calculated  weight 
for  federal  tax  lien  release*, 
synonym ( fed_tax_re 1 _ i nf o ) =*the  current  case*, 
synonym ( stat_tx_ 1 n_we i ght_va 1 ) =*the  calculated  weight 
for  state  tax  lien*. 

synonym ( stat_t x_ ln_i nfo ) =*the  current  case*, 
synonym ( sta_t x_re 1 _we igh t _va 1 )=* the  calculated  weight 
for  state  tax  lien  release*, 
synonym ( sta_tx_rel _ i nfo ) =*the  current  case*, 
synonym ( c i ty_tx_ ln_we i gh t_va 1 )=* the  calculated  weight 
for  city  tax  lien*. 

synonym ( c i ty_t x_ 1 n_ i nfo >=* the  current  case*, 
synonym ( c i ty_t x_re 1 _we igh t _va 1 )=* the  calculated  weight 
for  city  tax  lien  release*, 
synonym ( c i ty_tx_rel _ i nfo ) =4 the  current  case*, 
synonym ( co_tax_ 1 n_we i gh t _va 1 )=* the  calculated  weight 
for  county  tax  lien*. 

synonym ( co_tax_ 1 n_ i nfo ) =*the  current  case*, 
synonym ( co_tax_re 1 _we i gh t_va 1 )=* the  calculated  weight 
tor  county  tax  lien  release*, 
synonym ( co _tax_re 1 _ i nf o ) =*the  current  case*, 
synonym ( judgmt_sa t_wei gh t_va 1 ) =*the  calculated  weight 
for  satisfied  judgement*. 
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synonym ( judgmt_sat_ i nfo ) =*the  current  case*, 
synonym ( judg_vacat_wei gh t_va 1 ) =4  the  calculated  weight 
for  vacated  judgement*, 
synonym ( judg_vacat_ i nfo )=* the  current  case*. 
synonym( judgment_weight_val )=*the  calculated  weight  for 
judgement* . 

synonym ( judgment_ i nfo )=* the  current  case*, 
synonym ( wage_as i gn_we ight_val)=*the  calculated  weight 
for  wage  assignment*. 

synonym ( wage_as i gn_ i nfo )=* the  current  case*, 
synonym ( wa_re 1 ease_weigh t_va 1 ) =4  the  calculated  weight 
for  wage  assignment  released*, 
synonym ( wa_re 1 ease_ i nfo ) =*the  current  case*, 
synonym ( sui t_we ight_va 1 )=* the  calculated  weight  for 
suit*. 

synonym ( su i t_ i nfo )=* the  current  case*. 

synonym ( su i t_d i smd_we i gh t_va 1 ) =*the  calculated  weight 
for  suit  dismissed*. 

synonym < mn_mtg_f i l_weight_val )=*the  calculated  weight 
for  filed  manual  mortgage  report*, 
synonym ( mn_mtg_f i 1_ i nfo ) =*the  current  case*, 
synonym ( nt_respon_we i ght_va 1 ) =*the  calculated  weight 
for  not  responsible  notice*, 
synonym ( nt_respon_ i nfo ) =*the  current  case*, 
synonym ( conse 1 _ser _we i gh t _va 1 ) =* the  calculated  weight 
for  debt  counseling  service*, 
synonym ( consel _ser_ inf o )=*the  current  case*. 
synonym(curr_acct_n_weight_val )=*the  calculated  weight 
for  number  of  current  accounts*, 
synonym < superpayer_ i nfo ) =*the  current  case*, 
synonym ( cur _was_co 1 _we i ght_val ) =*the  calculated  weight 
for  a  current  account  that  was  a  collection 
account* . 

synonym ( cur _was_co 1 _ i nfo )=* the  current  case*, 
synonym ( cur _was_f or _we i gh t_val )=* the  calculated  weight 
for  a  current  account  that  was  a  foreclosure*, 
synonym ( cur_was_f or _ i nfo ) =*the  current  case*, 
synonym ( cur _was_we i gh t _va 1 ) =4 the  calculated  weight  for 
a  current  account  that  was  delinquent*, 
synonym ( cur _was_ i nfo ) =4 the  current  case*, 
synonym ( cwpd_we l gh t _va 1 ) =4 the  calculated  weight  for  a 
current  account  that  was  past  due*, 
synonym ( curwaspd _ i nfo )=* the  current  case*, 
synonym ( pa i d_sat i s_wei gh t _va 1 ) =4 the  calculated  weight 

for  a  closed  account  that  was  paid  satisfactorily*, 
synonym ( pa id_sat i s_ i nfo ) =4 the  current  case*, 
synonym ( pa i d_acc t_we i gh t_va 1 )=* the  calculated  weight 

tor  an  account  that  is  closed,  has  zero  balance  or 
is  not  rated*. 
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synonym ( pa id_acc t _ 1 nfo ) =  *the  current  case*, 
synonym ( pd_not_aa_wei gh t_va 1 ) =* the  calculated  weight 
for  a  paid  account  with  some  payments  not  made  as 
agreed* . 

synonym ( pd_no t_aa_ i nfo ) =* the  current  case*, 
synonym < pacc_wpd_we i ght_va 1 ) =*the  calculated  weight  for 
a  paid  account  that  was  past  due*, 
synonym < pacc_wpd_ i nfo ) =*the  current  case*, 
synonym < pace _wde 1 _we igh t_va 1 )=* the  calculated  weight 
for  a  paid  account  that  was  delinquent*, 
synonym ( pacc_wde 1 _ i nfo )=* the  current  case*, 
synonym ( pd_chg_off_we i gh t _va 1 )=* the  calculated  weight 
for  a  paid  account  that  was  a  charge  off*, 
synonym < pd_chg_off_ i nfo )=* the  current  case*, 
synonym ( pd _repo_we i gh t _va 1 ) =*the  calculated  weight  for 
a  paid  account  that  was  a  repossession*, 
synonym < pd_repo_ i nfo )=* the  current  case*, 
synonym < pd_co 1 1 _ac_weigh t _va 1  )=* the  calculated  weight 

for  a  paid  account  that  was  a  collection*  insurance 
or  education  claim*. 

synonym ( pd_co 1 1 _ac_ i nfo )=* the  current  case*, 
synonym ( notpdaa_weight_val ) =*the  calculated  weight  for 
an  account  not  being  paid  as  agreed*, 
synonym ( notpdaa_ inf o ) =*the  current  case*, 
synonym < pd_f or ec 1 o_wei gh t _va 1 ) =*the  calculated  weight 
for  a  paid  account  that  was  a  foreclosure*, 
synonym ( pd_f orec lo_i nfo )=*the  current  case*, 
synonym < de 1 i nq_we i gh t _va 1 )=*the  calculated  weight  for  a 
delinquent  account*. 

synonym ( del inq_ info ) =*the  current  case*. 

synonym < accpd_weight_val ) =*the  calculated  weight  for  an 
account  past  due*. 

synonym ( accpd_ l nfo ) =*the  current  case*. 

s /nonym ( vo 1 nrepo_we i gh t _va 1 )=* the  calculated  weight  for 
voluntary  repossession*, 
synonym ( vo 1 nrepo_ i nfo )=* the  current  case*, 
sy nonym ( f orec 1 osure_we i gh t _va 1 )=* the  calculated  weight 
for  a  f or ec 1 osur e* . 

synonym ( f orec 1 osure_ i nf o )=* the  current  case*, 
sy nonym ( repo_we i gh t _va 1 )=* the  calculated  weight  for  a 
repossession* . 

synonym ( repo_ i nfo ) =*the  current  case*. 

synonym ( pdbyd 1 r _we i gh t_va 1 )=* the  calculated  weight  for 
an  account  that  was  paid  by  dealer*, 
synonym ( pdbyd 1 r _ i nfo )=* the  current  case*, 
synonym ( co 1 1 _acc t _we i gh t _va 1 )=* the  calculated  weight 
for  a  collection  account*, 
synonymlcoll  acct  info )=$the  current  case*. 


synonym ( char ge_off_we i gh t_va 1 >=* the  calculated  weight 
for  a  charge  off*. 

synonym ( char ge_of f_ i nf o )=* the  current  case*, 
synonym ( c lose_np_aa_we ight_va 1 >=* the  calculated  weight 
for  credit  line  closed  account  not  paid  as  agreed*, 
synonym ( c 1 ose_np _aa_ i nf o )=* the  current  case*, 
synonym! scnl_weight_val ) =*the  calculated  weight  for 
unlocated  consumer*. 
synonym( scnl_info ) =*the  current  case*. 

synonym < for e_proc _we igh t _va 1 )  =* the  calculated  weight 
for  foreclosure  proceeding*, 
synonym ( fore_proc_ i nfo ) =*the  current  case*, 
sy nonym ( i nsc 1  a i m_we igh t _va 1 ) =* the  calculated  weight  for 
claim  filed  against  insured  portion  of  balance*, 
synonym ( insc 1  a i m_ i nfo )=* the  current  case*, 
synonym ( gov_c 1  a im_we i gh t_ /a  1 ) =*the  calculated  weight 
for  government  claim*, 
synonym ( go v_c 1  a im_i nfo )=* the  current  case*, 
synonym ( sett led_weight_val ) =*the  calculated  weight  for 
a  settled  account*. 

synonym ( set t led_ i nfo ) =*the  current  case*, 
synonym ( sen  1 _nwloc_we igh t_va 1 ) =*the  calculated  weight 
for  a  located  consumer  previously  unlocated*, 
synonym ( scnl _nw 1 oc_ i nfo ) =*the  current  case*, 
synonym ( co_now_pay_wei gh t _va 1 ) =*the  calculated  weight 
for  a  paying  account  that  was  a  charge  off*, 
synonym ( co_now_pay_ i nfo ) =*the  current  case*, 
synonym ( r ef i nanced _we i gh t _ va 1 ) =* the  calculated  weight 
for  a  refinanced  account*, 
synonym ( ref i nanced_ i nfo )=* the  current  case*, 
synonym ( cr_cd_ lost_we igh t_va 1 )=* the  calculated  weight 
for  credit  card  lost  or  stolen*, 
synonym ( cr_cd_ lost_ i nfo ) =*the  current  case*, 
synonym ( c 1 os_ i nac_we i gh t _va 1 ) =*the  calculated  weight 
for  closed  inactive  account*, 
synonym  (  c  los__  i  nac_  i  nf  o  )  =*the  current  case*, 
synonym ( tr ansf ered_we i gh t_va 1 ) =4  the  calculated  weight 
for  transferred  account*, 
sy nonym ( t r ansf ered _ i nfo ) =* the  current  case*, 
sy nonym ( too_new_r t_we i gh t _va 1 ) =* the  calculated  weignt 
tor  an  account  too  new  to  rate*, 
sy nonym ( too _new_r t _ i nf o )=* the  current  case*, 
synonym < deceased_we i gh t_va 1 )=* the  calculated  weight  for 
deceased* . 

synonym ( deceased_ i nfo )=* the  current  case*, 
s vnonym ( cr _ 1 n_c 1 o5_we i gh t _va 1 ) =* the  calculated  weight 
for  credit  line  closed*, 
synonym ( cr_ 1 n_c 1 os_ i nfo ) =*the  current  case*. 


sy  nonym  (  redmd_repo  _we  i  gh  t  _va  1  )  =4 1  he  calculated  weight 
for  redeemed  repossession*, 
synonym ( redmd_repo_ i nfo )=* the  current:  case*, 
sy nonym ( cr_ 1 n_r ns t_we i gh t_va 1 ) =* the  calculated  weight 
for  credit  line  reinstated*. 

synonym ( cr _ 1 n_r ns t_ i nfo )=* the  current  case*, 
synonym! i nq _we i gh t _va 1 ) =*the  calculated  weight  for 
inquiry* . 

synonym ( i nqu i ry_ i nfo ) =*the  current  case*, 
synonym ( superpayer _we i gh t _va 1 > =$ the  calculated  weight 
for  superpayer*. 

synonym ( superpayer_ i nfo )=* the  current  case*, 
synonym ( bk 1 i qreo_n )=* the  number  of  occurrences  of  debt 
included  or  discharged  through  bankruptcy  chapter  7 
or  11  * . 

synonym ( sett led_n > =*the  number  of  occurrences  of 
settled  accounts*. 

synonym ( bk_ad j_p 1 n_n ) =*the  number  of  occurrences  of 
debt  included  or  discharged  through  bankruptcy 
chapter  13*. 

synonym ( sen  1 _nw loc_n )=* the  number  of  occurrences  of  a 
located  consumer  previously  unlocated*, 
synonym ( co_now_pay_n ) =*the  number  of  occurrences  of 
charge  offs  now  being  paid*. 

synonym ( fore_proc_n ) =*the  number  of  occurrences  of 
foreclosure  proceedings*. 

synonym ( gov_c 1  a i m_n ) =*the  number  of  occurrences  of 
government  claims*. 

synonym ( c lose_np_aa_n ) =*the  number  of  occurrences  of 
credit  line  closed  account  not  paid  as  agreed*, 
synonym ( sen  1 _n ) =*the  number  of  occurrences  of  unlocated 
consumer* . 

synonym ( fed _t ax  1 n_n >=* the  number  of  occurrences  of 
federal  tax  liens*. 

synonym! fed_tax_rel _n ) =*the  number  of  occurrences  of 
federal  tax  liens  released*, 
synonym ( judgmt_sat_n ) =*the  number  of  occurrences  of 
satisfactory  judgements*. 

synonym ( judg_vacat_n ) =*the  number  of  occurrences  of 
vacated  judgements*. 

synonym ( mech_ 1 i en_n ) =*the  number  of  occurrences  of 
mechanics  liens*. 

sy nonym ( mech _re 1 e_n )=* the  number  of  occurrences  of 
mechanics  liens  released*, 
synonym ( mn _mtg _f i 1 _n )=* the  number  of  occurrences  of 
filed  manual  mortgage  reports*, 
synony m 1 n t _r espo n_n ) =* th e  number  of  occurrences  of  not 
responsible  notices*. 
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synonym ( st at _t x _ 1 n_n )=* the  number  of  occurrences  of 
state  tax  liens*. 

synonym ( sta_tx_rel _n ) =  *the  number  of  occurrences  of 
state  tax  liens  released*. 

synonym < su i t_d i smd_n ) =$ the  number  of  occurrences  of 
su i ts* . 

synonym ( wage_as ign_n ) =*the  number  of  occurrences  of 
wage  assignments*. 

synonym ( wa_re lease_n ) =*the  number  of  occurrences  of 
wage  assignments  released*. 

synonym ( ref i nanced _n )=* the  number  of  occurrences  of 
r ef i nanced* . 

synonym ( cr _cd _ 1  os t _n )=* the  number  of  occurrences  of 
credit  card  lost*. 

synonym < c 1 os_ i nac _n )=* the  number  of  occurrences  of 
closed  inactive  account*. 

synonym ( transfered_n ) =*the  number  of  occurrences  of 
tr ansfers* . 

synonym ( too_new_r t_n ) =*the  number  of  occurrences  of  too 
new  to  rate*. 

synonym ( pa id_sat i s_n )=* the  number  of  occurrences  of 
paid  sat i sf ac tor i 1 y* . 

synonym ( pa i d_acc t _n )=* the  number  of  occurrences  of  paid 
account* . 

synonym < deceased_n ) =*the  number  of  occurrences  of 
deceased* . 

synonym ( cr _ 1 n_c 1 os_n ) =*the  number  of  occurrences  of 
credit  line  closed*. 

synonym ( redmd_repo_n ) =*the  number  of  occurrences  of 
redeemed  repossessions*. 

synonym ( cur _was_co 1 _n )=* the  number  of  occurrences  of 
current  accounts  that  were  collection  accounts*. 

synonym ( cr_ 1 n_rnst _n )=* the  number  of  occurrences  of 
credit  line  reinstated*. 

synonym ( cur _was_f or _n )=* the  number  of  occurrences  of 
current  accounts  that  were  f orec losures* . 

synonym ( pd_not_aa_n ) =*the  number  of  occurrences  of  paid 
accounts  with  some  payments  not  made  as  agreed*. 

synonym ( c l ty_ t x_ 1 n_n ) =*the  number  of  occurrences  of 
city  tax  1  xen* . 

synonym ( c i t y_ t x _r e 1 _n )=* the  number  of  occurrences  ot 
city  tax  lien  released*. 

s vnonym ( conse 1 _ser _n ) =* the  number  of  occurrences  of 
debt  counseling  service*. 

synonym ( co _ t a x _ 1 n_n )=* the  number  of  occurrences  of 
county  tax  lien*. 

synonym ( co _t ax _re 1 _n )=* the  number  of  occurrences  of 
county  tax  lien  released*. 
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synonym ( pd_forec 1 o_n ) =*the  number  of  occurrences  of 
paid  accounts  that  were  foreclosures*, 
synonym ( pd_chg_off_n ) =  *the  number  of  occurrences  of 
paid  accounts  that  were  charge  offs*, 
synonym < pd_repo_n ) =*the  number  of  occurrences  of  paid 
accounts  that  were  repossessions*, 
synonym ( pd_co 1 1 _ac_n )=* the  number  of  occurrences  of 

paid  accounts  that  were  collections,  or  insurance 
or  education  claims*. 

synonym ( pacc_wde 160_n )=* the  number  of  occurrences  of 
paid  accounts  that  were  delinquent  60  days*, 
synonym ( pacc_wde 190_n > =*the  number  of  occurrences  of 
paid  accounts  that  were  delinquent  90  days*, 
synonym ( pacc_wde 1 120_n ) =*the  number  of  occurrences  of 
paid  accounts  that  were  delinquent  120  days*, 
synonym ( pace _wde 1 150_n ) =*the  number  of  occurrences  of 
paid  accounts  that  were  delinquent  150  days*, 
synonym ( pacc_wde 1 1 80_n ) =*the  number  of  occurrences  of 
paid  accounts  that  were  delinquent  180  days*, 
synonym ( sui t_n ) =*the  number  of  occurrences  of  suits*, 
synonym ( pacc_wpd_30_n ) =*the  number  of  occurrences  of 
paid  accounts  that  were  past  due  30  days*, 
synonym < pacc_wpd_30by23_n >=* the  number  of  occurrences 
of  paid  accounts  that  were  past  due  30  days  2  or  3 
t imes* . 

synonym ( pace _wpd_30by4_n ) =*the  number  of  occurrences  of 
paid  accounts  that  were  past  due  30  days  4  times*. 
synonym(pacc_wpd_30by5_n)=*the  number  of  occurrences  of 
paid  accounts  that  were  past  due  30  days  5  times*, 
synonym ( pacc_wpd_30by6_n ) =*the  number  of  occurrences  of 
paid  accounts  that  were  past  due  30  days  6  times*, 
synonym < accpd_30_n ) =*the  number  of  occurrences  of  an 
account  past  due  30  days*. 

synonym( accpd_30by2_n ) =*the  number  of  occurrences  of  an 
account  past  due  30  days  2  times*, 
synonym ( accpd_30by3_n )=* the  number  of  occurrences  of  an 
account  past  due  30  days  3  times*, 
synonym ( accpd _30by4_n )=* the  number  of  occurrences  of  an 
account  past  due  30  days  4  times*, 
synonym ( accpd _30by5_n )=* the  number  of  occurrences  of  an 
account  past  due  30  days  5  times*, 
synonym! accpd_30by6_n ) =*the  number  of  occurrences  of  an 
account  past  due  30  days  6  times*, 
synonym ( cwpd_n ) =*the  number  of  occurrences  of  a  current 
account  that  was  past  due*, 
synonym ( cwpd_30_n ) =*the  number  of  occurrences  of  a 
current  account  that  was  past  due  30  days*, 
synonym ( cwpd_30by2_n ) =*the  number  of  occurrences  of  a 
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due  30  days  2 


of  occurrences 
due  30  days  3 
of  occurrences 
due  30  days  4 
of  occurrences 
due  30  days  5 
of  occurrences 
due  30  days  6 


current  account  that  was  past 
t imes* . 

synonym ( cwpd_30by3_n ) =Sthe  number 
current  account  that  was  past 
synonym ( cwpd_30by4_n ) =* the  number 
current  account  that  was  past 
synonym ( cwpd_30by5_n ) =S the  number 
current  account  that  was  past 
synonym ( cwpd_30by6_n )  =*the  number 
current  account  that  was  past 
synonym ( d_60_n ) =Sthe  number  of  occurrences  of  an 
account  delinquent  60  days*, 
synonym < d_90_n >=* the  number  of  occurrences  of  an 
account  delinquent  90  days*, 
synonym ( d_ 1 20_n )=* the  number  of  occurrences  of  an 
account  delinquent  ISO  days*: 
synonym ( d_ 1 50_n )=* the  number  of  occurrences  of  an 
account  delinquent  150  days*, 
synonym ( d_ 1 80_n )=* the  number  of  occurrences  of  an 
account  delinquent  180  days*, 
synonym ( c_w_60_n ) =*the  number  of  occurrences  of  a 
current  account  that  was  delinquent  60  days*, 
synonym ( c_w_90_n ) =*the  number  of  occurrences  of  a 
current  account  that  was  delinquent  90  days*, 
synonym <  c  _w_ 1 20_n ) =* the  number  of  occurrences  of  a 
current  account  that  was  delinquent  120  days*. 
synonym(c_w_150_n)=*the  number  of  occurrences  of  a 
current  account  that  was  delinquent  150  days*, 
synonym ( c _w_l 80_n ) =*the  number  of  occurrences  of  a 
current  account  that  was  delinquent  180  days*, 
synonym ( pdbyd 1 r_n ) =*the  number  of  occurrences  of 
accounts  paid  by  dealer*. 

synonym ( co 1 1 _acc t_n )=* the  number  of  occurrences  of 
collection  account*. 

synonym( charge_of f _n ) =*the  number  of  occurrences  of 
charge  offs*. 

synonym ( curr_acc t_n ) =*the  number  of  occurrences  of 
current  accounts*. 

sy nonym ( i nsc 1  a im_n ) =* the  number  of  occurrences  of  a 
claim  filed  against  insured  portion  of  balance* 
synonym( notpdaa_n ) =*the  number  of  occurrences  of  an 
account  not  being  paid  as  agreed*, 
synonym < vo 1 nrepo_n ) =*the  number  of  occurrences  of 
voluntary  repossession*. 


of  a 
t i mes* . 

of  a 
t  i  mes*  . 
of  a 
t  i  mes* . 

of  a 
t  i  mes* . 


/* - RULES - */ 

the  concluded  of  cone lusi on_ i nf o  is  too_many_acc t s 
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the  curr_acct_n  of  superpayer_info  is  N  end 
N  >  20. 

the  concluded  of  cone lus i on_ i nf o  is  potential_bankrupt 
if 

the  weight_pt_val  of  we i gh t_p t_ i nf o  is  a  1 armi ng 1 y_h i gh , 


the  weight_pt_val  of  we i gh t _p t _ i nf o  is  alarmingly  high 
if 

the  over al 1 _we i gh t _va 1  of  cone  1 us i on_ i nf o  is  V  and 
the  pb_cut_of f _va 1  of  cut_off_info  is  2  and 

Y  >  2. 

the  concluded  of  cone lus i on_ l nfo  is  superpayer 
if 

the  month  1 y_payment  of  the  superpayer_ i nf o  is  E  and 
the  month  1 y_ i ncome  of  the  personal_info  is  I  and 
E  >  I  . 

the  concluded  of  cone lus ion_i nf o  is  normal 
i  f 

the  weight_pt_val  of  weight_pt_info  is  ex tr erne  1 y_ 1 ow . 

the  weight_pt_val  of  weight_pt_ inf o  is  ex tr erne  1 y_ 1 ow 
if 

the  overal l_weight_val  of  cone lusion_info  is  Y  and 
the  ex tr erne  1 y_ law_cut_of f _va 1  of  cut_off_info  is  2  and 

Y  =<  2. 

the  concluded  of  cone lusion_info  is  satisfactory 
i  f 

the  weight_pt_val  of  we igh t _p t_ i nf o  is  ver y_low. 

the  we i gh t _p t _ va 1  of  weight_pt_info  is  very_low 
if 

the  o ver a  1 1 _we i gh t _va 1  of  cone  1  us i on_ i nf o  is  Y  and 
the  very_low_cut_off _va 1  of  cut_off_info  is  2  and 
i  =<.  2. 

the  concluded  of  cone  1 us i on_ l nf o  is  poor 
if 

the  we i gh t_p t_va 1  of  we i gh t _p t_ i nf o  is  low. 

the  we i gh t _p t _va 1  of  we i gh t _p t _ i nf o  is  low 
if 

the  overal l_weight_val  of  cone  1  us i on_ i nf o  is  Y  and 
the  low  cut  off  val  of  cut  off  info  is  2  and 


i 


$ 

i 

ft 


$ 

i 


I 

i 


Fji 

% 

V 

SHI 

i 


S; 

% 

I 

i 


Hr 


the  concluded  of  cone lus ion_ i nf o  is  very_poor 
i  f 

the  weight_pt_val  of  we i gh t _p t _ i nf o  is  moderatel y_h igh . 


the  we igh t _p t _va 1  of  we igh t _p t _ i nf o  is  moderate  1 y_h igh 
i  f 

the  overal l_weight_val  of  cone  lus i on_ i nfo  is  Y  and 
the  moderate  1 y_h i gh_cut _o f f_va 1  of  cut_off_info  is  Z 
and 

Y  =<  Z. 

the  concluded  of  cone  1  us i on_ i nf o  is  serious 
if 

the  weight_pt_val  of  we igh t _p t _ i nf a  is  high. 

the  weight_p t_va 1  of  weight_pt_inf o  is  high 
i  f 

the  overal l_weight_val  of  cone lus ion_ i nfo  is  Y  and 
the  h  igh_cut_of f _va 1  of  cut_off_info  is  Z  and 

Y  =<  Z. 

the  concluded  of  cone lus ion_ i nfo  is  critical 
if 

the  weight_pt_val  of  we i gh t _p t _ i nf o  is  very_high. 

the  weight_pt_val  of  weight_pt_info  is  very_high 
i  f 

the  overal l_weight_val  of  cone lus ion_ i nfo  is  Y  and 
the  very_h igh_cut_of f _va 1  of  cut_off _info  is  Z  and 

Y  =<  Z. 

the  concluded  of  cone  1  us i on_ i nf o  is  very_cr i t ical 
i  f 

the  we igh t_p t _va 1  of  we i gh t _p t _ i nf o  is  ex t reme 1 y_h i gh . 

the  we  ight_pt_val  of  weight_pt__info  is  extreme  1  y  _h  i  gh 
l  f 

the  o ver a  1 1 _ we i gh t _ va 1  of  cone  1  us i on_ i nf o  is  Y  and 
the  ex t r eme 1 y _h i gh _cu t _o f f _va 1  of  cut_off_info  is  Z  and 

Y  >  Z . 


the  overal l_weight_val  of  conclusion_info  is  Y 
i  f 

the  pub  1 ic_record_va 1  of  cone  1  us i on_ i nf o  is  Y_1  and 
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the  pr i vate_record_va 1  of  cone  1  us i on_ i nf o  is  Y_2  and 
Y  =  Y_ 1 +  Y_2 . 

the  concluded  of  cone  1  us i on_ i nf o  is  X 
i  f 

the  overa 1 1 _we igh t _va 1  of  cone  1  us i on_ i nf o  is  Y  and 
weighted _decision(Y,X)  . 


the  pub  1 ic_record _va 1  of  cone lus ion_ i nf o  is  2 
i  f 

the  set _of _bkrp t s_and_ 1 i ens_we i gh t _va 1  of 

cone lus ion_ i nfo  is  Z_  1  and 

the  set _of _m i sc_pub 1 i c _ i t ems_we i gh t _va 1  of 

cone lus ion_ i nfo  is  Z_2 

and  Z  =  2_l+2_2. 

the  private_record_val  of  cone lusion_info  is  Z 
i  f 

the  set_of_current_and_paid_accts_weight_val  of 
cone lusion_info  is  Z_3  and 

the  set_of _del i nq_acc ts_we i gh t _va 1  of  cone lus i on_ i nfo 
is  Z_4  and 

the  set_of _misc_pr ivate_i tems_we i gh t _va 1  of 
cone lusion_info  is  Z_5  and 
Z  =  Z  3+2  4+Z  5. 


the  set _of _bkrp ts_and_ 1 i ens_we i gh t_va 1  of 
cone lusion_info  is  Z_1 
if 

the  bk_ad j_p ln_weight_val  of  bk _ad j_p 1 n_ i nf o  is  X_1  and 
the  bk 1 iqreo_weight_val  of  bk 1 iqreo_info  is  X_2  and 
the  bk_vals  of  trw_info  is  X_3  and 

the  mech _ 1 i en_we i gh t _va 1  of  mech_ 1 i en_ i nf o  is  X_4  and 
the  mech _re 1 e_we i gh t _ va 1  of  mech_re 1 e_ i nf o  is  X _5  and 
the  f ed_tax _ 1 n_we l gh t_va 1  of  f ed_tax_ 1 n_ i nf o  is  X_6  and 
the  f ed_tax_re 1 _we i gh t_va 1  of  f ed _ t ax _r e 1 _ i nf o  is  X_7 
and 

the  stat_tx_ln_weight_val  of  s t a t _ t x_ 1 n_ x nf o  is  X_8  and 
the  sta_tx_rel _we ight_val  of  s t a_ t x_re 1 _ i nf o  is  X_9  and 
the  c i ty_ t x_ 1 n_we i gh t_va 1  of  c i t y_ t x_ 1 n_ i nf o  is  X_10 
and 

the  c l ty_t x_re 1 _we igh t_va 1  of  c i ty_tx_rel _inf o  is  X _ 1 1 
and 

the  co_tax_l n_we ight_val  of  co _ t ax _ 1 n_ i nf o  is  x_12  and 
the  co_tax_rel _weight  val  of  co  tax  rel  info  is  X  13 


Z  1 


=  X_l+X_2  +  X_3  +  X_4+X_5  +  X_6  +  X_7-t-X_a  +  X_9  +  X_l0 
+  X~1  l  +  X_12-*-X_13. 

the  set _of _m i sc_pub 1 ic_ i t ems_we i gh t_va 1  of 
cone lus ion_ i nf o  is  Z_2 
if 

the  judgmt_sat_weight_val  of  judgmt_sat_ inf o  is  X_20 
and 

the  judg_vacat_weight_val  of  judq _vaca t _ i nf o  is  X_2l 
and 

the  judgment^we ight_va 1  of  judgment_ i nf o  is  X_22  and 
the  wage_asign_weight_val  of  wage_as i gn_ i nf o  is  X_23 
and 

the  wa.release_weight_val  of  wa_re 1 ease_ i nf o  is  X_24 
and 

the  su i t _d i smd_we i gh t _va 1  of  sui t_dismd_info  is  X_25 
and 

the  suit_weight_val  of  suit_info  is  X_26  and 
the  mn_mtg_f i l_weight_val  of  mn_mtg_f i 1 _ i nf o  is  X_27 
and 

the  nt_respon_weight_val  of  nt _respon_ i nf o  is  X _2B  and 
the  consel_ser_weight_val  of  consel_ser_info  is  X_29 
and 

Z_2  =  X__20+X_21  +  X_22+X_23  +  X_24+X_25+X_26  +  X_27 
+X  28+X  29. 


the  5et_of_current_and_paid_accts_weight_val  of 
cone  1  us i on_ i nf o  is  2_3 
if 

the  curr_acct_n_weight_val  of  superpayer_ i nf o  is  X_30 
and 

the  cur _was_co 1 _we i gh t _va 1  of  cur _was_co 1 _ i nf o  is  X_31 
and 

the  cur_was_for_weight_val  of  cur _was_f or _ i nf o  is  X_32 
and 

the  cur _was_we i gh t _va 1  of  cur_was_info  is  X_33  and 
the  cwpd_weight_val  of  curwaspd__  info  is  X_34  and 
the  pa i d _sa t l s_we i gh t _va 1  of  pa x d _sa t i s_ i nf o  is  X_35 
and 

the  paid_acct_weight_val  of  pa i d_acc t_ l nf o  is  X_36  and 
the  pd  no t _aa_we i gh t _va 1  of  pd _no t _aa_ i nf o  is  X_37  and 
the  pace _wpd_we i gh t _va 1  of  pace _wpd_ l nf o  is  X_38  and 
the  pace _wde 1 _we i gh t _va 1  of  pace _wde 1 _ i nf o  is  X_39  and 
the  pd_chg_of f _weight_val  of  pd _chg_of f _ i nf o  is  X_40 


the  pd_co 1 1 _ac_we i gh t_va 1  of  pd_col l_ac_info  is  X_4H 
and 

the  notpdaa_weight_val  of  notpdaa_info  is  X_43  and 
the  pd_forec lo_weight_val  of  pd_f orec 1 o_ i nf o  is  X_44 
and 

Z_3=X_30  +  X  _3 1 +  X  _32  +  X_33  +  X  _34  +  X  _35  +  X  _36+X  _37  +  X  _38  + 
X~39+X_40+X~41+X_42+X_43+X_44. 

the  set _of _del i nq_acc t s_we i gh t _ va  1  of  cone  1  us i on_ i nf o 
i  s  Z_4 
if 

the  de 1 i nq_we i gh t _va 1  of  delinq_info  is  X_45  and 
the  accpd_we igh t_va 1  of  accpd_info  is  X_46  and 
the  vo lnrepo_weight_val  of  vo lnrepo_inf o  is  X_47  and 
the  foreclosure_weight_val  of  f orec losure_info  is  X_4Q 
and 

the  repo_weight_val  of  repo_info  is  X_49  and 
the  pdbydlr_weight_val  of  pdbydlr_info  is  X_50  and 
the  col l_acct_weight_val  of  col l_acct_info  is  X_51  and 
the  charge_off _weight_val  of  charge_off _info  is  X_52 
and 

the  c lose_np_aa_weight_val  of  c 1 ose_np_aa_ i nf o  is  X_53 
and 

the  scnl_weight_val  of  scnl_info  is  X_54  and 
the  fore_proc_weight_val  of  fore_proc_info  is  X_55  and 
the  i nsc 1  a i m_weigh t _va 1  of  i nsc 1  a i m_ i nf o  is  X_56  and 
the  go v_c 1  a im_we ight_val  of  gov_c 1  a i m_ i nf o  is  X_57  and 
Z_4=X_45+X_46+X_47+X~48+X_49+X_50+X_51+X_52+X_53+ 
X_54+X_55+X~56+X_57. 

the  set_of _m i sc_pr i va te_ i tems_wei gh t _va 1  of 
cone lusion_info  is  2_5 
i  f 

the  sett led_weight_va 1  of  settled_info  is  X_58  and 
the  scnl_nwloc_weight_val  of  sen  1 _nw 1 oc _ inf o  is  X_59 
and 

the  co_now_pay_weight_val  of  co _now_pay_ i nf o  is  X_60 
and 

the  ref l nanced_we i gh t _ va 1  of  ref inanced_info  is  X_61 
and 

the  cr _cd _ 1  os t _we i gh t _va 1  of  cr _cd_ 1  os t _ i nf o  is  X _62 
and 

the  c 1 os_ i nac_we i gh t _va 1  of  c 1 os_ i nac_ i nf o  is  X_63  and 
the  transfered_weight_val  of  transfered_info  is  X_64 
and 

the  too_new_r t _we igh t _va 1  of  too _new_r t _ i nf o  is  X_65 
and 

the  deceased_weight__val  of  deceased_ i nf o  is  X_66  and 
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the  cr_ln_clo5_weight_val  of  cr _ 1 n_c 1 os_ i nf o  is  X_67 
and 

the  redmd_repo_weight_val  of  redmd_repo_ i nf o  is  X_68 
and 

the  cr_ 1 n_rns t_we igh t_va 1  of  cr _ 1 n_r ns t _ l nf o  is  X_69 
and 

the  inq_weight_val  of  inquiry_info  is  X_70  and 
the  superpayer _weight_val  of  superpayer _info  is  X_7l 
and 

Z_5=  X _58  + X _ 59+ X _60+ X _ 6 1 + X _68 + X _ 63+ X _64  + X  65+X_66+ 

X  67+  X  68  +  X  69+  X  70  +  X  71. 


the  bk 1 iqreo_weight_val  of  bk 1 i qr eo _ i nf o  is  X 
if” 

the  bkliqreo_n  of  bk 1 iqreo_info  is  N_1  and 
weigh tper _sta tus (bkliqreo,WT_l)  and 
X  =  N_ 1 *WT_ 1 . 

the  set t led_we igh t _va 1  of  settled_info  is  X 
i  f 

the  settled_n  of  settled_info  is  IM_1  and 
weight_per_status(sett led , WT_ 1 )  and 
X  =  N  1*WT  1 . 


the  b k_ad j _p 1 n_we igh t _va 1  of  bk  ad j  pln_info  is  X 
if 

the  bk_ad j_p ln_n  of  bk _ad j _p 1 n_ i nf o  is  N_1  and 
we i gh t _per _sta tus ( bk_ad j_p 1 n , WT_ 1 )  and 
X  =  N  1*WT  1 . 


the  scnl_nwloc_weight_val  of  scnl _nwloc_xnfo  is  X 
i  f 

the  scnl_nwloc_n  of  sc n 1 _nw 1 oc _ i nfo  is  N_1  and 
we ight_per_status( scnl _nw 1 oc  >  WT_ 1 )  and 
X  =  N  1 *WT  1 . 


the  co_now_pay_we i gh t _va 1  of  co_now_pay_ l nf o  is  X 
i  f 

the  co_now_pay_n  of  co_now_pay_ i nf o  is  N_1  and 
wei gh t_per_sta tus ( co_now_pay , WT_ 1 >  and 
X  =  N_1*WT_1 . 

the  f or e_proc _we i gh t _va 1  of  f ore_proc_ inf o  is  X 
i  f 

the  fore_proc_n  of  f ore_proc_ l nf o  is  N_1  and 


weigh  t_per_status( f ore_proc , WT_ 1 )  and 
X  =  N  1*WT  1 . 


the  gov_claira_weight_val  of  go v_c 1  a i m_ i nf o  is  X 
i  f 

the  gov_claim_n  of  go v_c 1  a im_ i nf o  is  N_1  and 
weigh t _per_s t a tus ( go v_c 1  a i m , WT _ 1 )  and 
X  =  N  1*WT  1 . 


the  close_np_aa_weight_val  of  c lose_np_aa_info  is  X 
if 

the  close_np_aa_n  of  close_np_aa_info  is  N_1  and 
wei ght_per_s ta tus ( c 1 ose_np_aa , WT_ 1 >  and 
X  =  N_1*WT_1 . 

the  scnl_weight_vai  of  scnl_info  is  X 
i  f 

the  scnl_n  of  scnl_info  is  N_1  and 
we i gh t_per_status ( sen  1 , WT_ 1 )  and 
X  =  N  1*WT  1. 


the  fed_tax_ln_weight_val  of  f ed_tax_ 1 n_ i nf o  is  X 
i  f 

the  fed_tax_ln_n  of  fed_tax_ ln_info  is  N_1  and 
we igh t_per_status < f ed_tax_ 1 n , WT_ 1 )  and 
X  =  N  1 *WT  1 . 


the  f ed_tax _re 1 _we i gh t _va 1  of  fed_tax_rel _info  is  X 
i  f 

the  fed_tax_rel_n  of  fed_tax_rel_info  is  N_1  and 
weight_per_status ( fed_tax_rel »WT_1 )  and 
X  =  N  1*WT  1 . 


the  j udgmt _sat _we i gh t _va 1  of  ;udgmt_sat_ inf o  is  X 
if  the  j udgmt _sa t _n  of  j udgmt _sa t _ i nfo  is  N_1  and 
we l gh t _per _sta tus ( judgmt _sa t , WT_ 1  )  and 
X  =  N  1*WT  1. 


the  judg_vacat_weight_va 1  of  judg_vacat_i nf o  is  X 
if 

the  judg_vacat_n  of  judg_vacat_ i nfo  is  N_1  and 
we ight_per_status<  judg_vacat  »WT_1 )  and 
X  =  N  1 *WT  1 . 


the  mech_l ien_weight_val  of  mech_  1  i en_  i rvfo  is  X 
i  f 

the  <nech_  1  i en_n  of  mech_  1  i en_ i  nf  o  is  N_1  and 
weight_per_5tatus(mech_l ien,WT_l )  and 
X  =  N  1 *WT  1 . ~ 


the  mech_re 1 e_we i gh t _va 1  of  mech_rele_info  is  X 
i  f 

the  mech_rele_n  of  mech_rele_info  is  N_1  and 
we i gh t _per _st atus ( mech_r e 1 e , WT_ 1 )  and 
X  =  N  1 *WT  1 . 


the  mn_mtg_f i 1 _weigh t _va 1  of  mn_mtg_f i 1 _ i nf o  is  X 
if 

the  mn_mtg_fil_n  of  mn_mtg_f i 1 _ i nf o  is  N_1  and 
we ight_per_status<  mn_mtg_f i 1 , WT_ 1 >  and 
X  =  N  1 *WT  1 . 


the  nt_respon_weight_val  of  nt_respon_ i nf o  is  X 
i  f 

the  nt_respon_n  of  nt_respon_ i nf o  is  N_1  and 
wei gh t _per_sta tus ( nt _respon , WT_ 1 )  and 
X  =  N  1 *WT  1 . 


the  stat_tx_ln_weight_val  of  stat_tx_ln_info  is  X 
if 

the  stat_tx_ln_n  of  stat_ t x_ 1 n_ i nf o  is  N_1  and 
wei gh t _per _status ( stat _t x_ 1 n , WT_ 1 )  and 
X  =  N  1*WT  1 . ~ 


the  s ta_ t x_re 1 _we igh t _va 1  of  s t a_ t x_re 1 _ i nf o  is  X 
if 

the  sta_tx_rel_n  of  s t a _ t x _r e 1 _ i nf o  is  N_1  and 
we ight_per_status( sta_tx_rel ,WT_1 )  and 
X  =  N_1*WT_1 . 

the  su i t _d i smd _we i gh t _va 1  of  su i t_d i smd_ i nf o  is  X 
i  f 

the  su i t _d i smd _n  of  su i t _d i smd _ i nf o  is  N_1  and 
we i gh t _per_s t a tus ( su i t _d i smd , W T_ 1 )  and 
X  =  N_1*WT_ 1 . 

the  wage_asign_weight_val  of  wage_as l gn_  i  nf o  is  X 


the  wage_asign_n  of  wage_asign_info  is 
we i gh t _per _s tatus ( wage_as i gn , WT_ 1 )  and 


X  =  N  i*WT  1 . 


N  1 


and 


I 


the  wa_re 1 ease_we i gh t _va 1  of  wa_re 1 ease_ i nf o  is  X 
if 

the  wa_release_n  of  wa_r e 1 ease_ i nf o  is  N_1  and 
we i gh t _per _s tatus ( wa_re 1  ease , WT_ 1 )  and 
X  =  N  1*WT  1  . 


the  ref i nanced _we i gh t _va 1  of  ref inanced_info  is  X 
if 

the  ref inanced_n  of  ref i nanced _ i nf o  is  N_1  and 
we igh t _per_status ( ref i nanced , WT _ 1 )  and 
X  =  N  1*WT  1 . 


|  the  cr_cd_lost_weight_val  of  cr_cd_lost_info  is  X 

i  f 

j  the  cr_cd_lost_n  of  cr _cd _ 1  os t _ i nfo  is  N_1  and 

wei gh t _per _st atus ( cr _cd_ 1 ost , WT_ 1 )  and 
j  X  =  N_1*U)T_1  . 

I 


the  c Ios_inac_weight_val  of  c los_ i nac _ i nf o  is  X 
i  f 

the  clos_inac_n  of  c los_inac_ inf o  is  N_1  and 
we ight_per_status(clos_inac, WT_ 1 )  and 
X  =  N  1*WT  1  . 


the  tr ansf ered_we i gh t _va 1  of  transfered_inf o  is  X 
if 

the  transfered_n  of  transf ered_ i nf o  is  N_1  and 
weight_per_status( transfered ,  WT_  1 )  and 
X  =  N  1 *WT  1  . 


the  t oo _new_r t _we i gh t _va 1  of  too _new_r t _ i nf o  is  X 
i  f 

the  too_new_rt_n  of  too_new_r t _ i nf o  is  N_1  and 
we ight_per_status(too_new_rt,WT_l  )  and 
X  =  N_1*WT_1 . 

the  paid_sati s_we ight_val  of  paid_satis_info  is  X 
if 

the  paid_satis_n  of  pa  id _sa t i s_ i nf o  is  N_1  and 
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we i gh t _per _status ( pa  id _sat i s » WT_ 1 )  and 
X  =  N  1*WT  1. 


the  pa i d_acc t _we i gh t _va 1  of  pa i d_acc t _ l nf o  is  X 
i  f 

the  paid_acct_n  of  paid_acct_info  is  N_1  and 
weight_per_status (paid_acct,WT_l>  and 
X  =  N  1 *WT  1 . 


the  deceased_we i gh t_va 1  of  deceased _ i nfo  is  X 
i  f 

the  deceased_n  of  deceased, i nf o  is  N_1  and 
we igh t_per _s ta tus ( deceased , WT _ 1 )  and 
X  =  N_ 1 *WT_ 1 . 

the  cr_ln_clos_weight_val  of  cr _ 1 n_c los_ i nf a  is  X 
l  f 

the  cr  _  1  n_c  1  os_n  of  cr  _  1  n_c  1  os_  l  nfo  is  IM_  1  and 
wei gh t_per_sta tus ( cr_ 1 n_c los « WT _ 1 )  and 
X  =  N  1*WT  1 . 


the  redmd_repo_weight_val  of  redmd_repo  info  is  X 
i  f 

the  redmd_repo_n  of  r edmd _r epo _ i nf o  is  N_1  and 
we  i  gh  t  _per  _s  ta  tus  (  red<nd_repo  >  WT_  1  >  and 
X  =  N_1*WT_1 . 

the  cur _was_co 1 _we i gh t _va 1  of  cur _was_co 1 _ i nf o  is  X 
i  f 

the  cur _was_co 1 _n  of  cur _was_co 1 _ i nf o  is  N_1  and 
we ight_per_status(cur_was_col »WT_1 )  and 
X  =  N  1*WT  1 . 


the  c r _ 1 n_r ns t _ we l gh t _ va 1  of  c r _ 1 n_ r ns t _ l nf o  is  X 
l  f 

the  cr_ln_rnst_n  of  cr_in_rnst_info  is  N_ 1  and 
we l gh t _per _s t a tus ( cr _ 1 n_rns t , WT_ 1 )  and 
X  =  N  1 *WT  1  . 


the  cur _was_f or _we l gh t _va 1  of  c ur _was _f or _ i nf o  is  X 
l  f 

the  cur _was_f or _n  of  cur _was_f or _ i nf o  is  N_1  and 
we i gh t _per _s t a tus ( cur _was_f or , WT _ 1 )  and 


X 


N  1*WT  1. 


the  pd_not_aa_weight_val  of  pd_not_aa_info  is  X 
1  f 

the  pd_not_aa_n  of  pd_not_aa_info  is  N_1  and 
weight_per_status(pd_not_aaiWT_l )  and 
X  =  N  1  *UIT  1  . 


the  ci ty_tx_ln_weight_val  of  city_tx_ln_info  is  X 
i  f 

the  city_tx_ln_n  of  c i ty_t x_ i n_ i nf a  is  N_1  and 
weight_per_status(city_tx_ln,WT_l )  and 
X  =  N_1*WT_1. 

the  c i t y _ t x _r e 1 _ we i gh t _ va 1  of  c i ty_ t x_re 1 _ i nf o  is  X 
if 

the  c  i  ty_  t  x_re  1  _n  of  c  i  ty_t  x_re  1  _  i  nf  o  is  l\J_l  and 
weight_per_status(ci ty_tx_rel ,  WT_  1 )  and 
X  =  N_ 1 *WT_ 1 . 

the  consel_ser_weight_val  of  conse 1 _ser_ i nf o  is  X 
l  f 

the  conse 1 _ser _n  of  conse 1 _ser_ i nfo  is  N_1  and 
weight_per_status(consel_ser,WT_l )  and 
X  =  N  1*WT  1 . 


the  co_ t ax _ 1 n_we i gh t_va 1  of  co_tax_ln_info  is  X 
if 

the  co_tax_ln_n  of  co _ t ax _ 1 n_ i nf o  is  N_1  and 
weigh  t_per_status(co_tax_ln,WT_l)  and 

X  =  N  1 *WT  r. 


the  co _ tax_re 1 _we i gh t _va 1  of  co _ t a x_re 2 _ i nf o  is  X 
if 

the  co_tax_rel_n  of  co_tax_rel_info  is  N _ 1  and 
we ight_per_status(co_tax_rel ,wr_l >  and 
X  =  N_1*WT_1 . 

the  pd_ f orec 1 o _we i gh t _ va 1  of  pd_f orec 1 o_ i nf o  is  X 
if 

the  pd_foreclo_n  of  pd_forec lo_info  is  N_1  and 
we ight_per_status ( pd_forec 1 o , WT  _ 1 )  and 
X  =  N  1 *WT  1. 


!the  pd_chg_of f _weight_va 1  of  pd _chg_of f _ i nf o  is  X 

the  pd_chg_off_n  of  pd_chg_of f _ i nf o  is  N_1  and 
weight_per _status ( pd_chg_of f »WT_1 )  and 
X  =  N  1 *WT  1 . 


the  pd_repo_weight_val  of  pd_repo_info  is  X 
if 

the  pd_repo_n  of  pd_repo_info  is  N_1  and 
we ight_per_status<pd_repo,WT_l )  and 
X  =  N_  1  *WT_  1  . 

the  pd_co 1 1 _ac_we igh t_va 1  of  pd_co 1 1 _ac_ i nf o  is  X 
i  f 

the  pd_coll_ac_n  of  pd _co 1 1 _ac _ i nf o  is  N_1  and 
we i gh t _per_s ta tus ( pd_co 1 1 _ac  » WT_ 1 )  and 
X  =  N  1*WT  1 . 


r  the  pacc_wdel_weight_val  of  pacc_wdel_info  is  X 

{  if  “ 

J  the  pacc_wdel60_n  of  pacc_wdel60_info  is  N_1  and 

»  weigh t _per_status ( pacc_wdel60 , WT_ 1 )  and 

j  Pace _wde 1 60_WT  =  N_1*WT_1  and 

|  the  pacc_wdel90_n  of  pacc_wde 190_ i nf o  is  N_2  and 

h  we i gh t _per_sta tus < pacc_wdel 90 » WT_2 )  and 

i.  Pacc_wdel90_WT  =  N_2*WT_2  and 

j  the  pacc_wdel 120_n  of  pacc_wde 1 1 20_ i nf o  is  N_3  and 

K  weigh t_per_status ( pacc_wdel 120 , WT_3 )  and 

1  Pacc_wdel 120_WT  =  N_3*WT_3  and 

I  the  pacc_wdel 150_n  of  pacc_wdel 150_info  is  N_4  and 

r  we igh t _per _s ta tus ( pacc_wde 1 1 50 , WT_4 )  and 

y  Pace _wde  1  1 50__WT  =  N_4*WT_4  and 

^  the  pace _wde 1 1 3n_n  of  pace _wde 1 1 80_ i nf o  is  N_5  and 

>  we  i  gh  t  _per_s  ta  tus  (  pace  _wde  1  1  SO ,  WT__5  )  and 

«  Pace _wde 1 1 80 _WT  =  N_5*WT_5  and 

I  X  =  Pace _wde 1 60_WT  +  Pace _wde 1 90_WT  +  Pacc_wde 1 1 20_WT 

t  Pace  wdell50  WT  +  Pace  wde!180  WT. 


the  su l t _we i gh t _va 1  of  suit_info  is  X 
if 

the  suit_n  of  suit_info  is  N_1  and 
we i gh t _per _s t a tus ( su i t , WT_ 1 )  and 
X  =  N_1*WT_ 1 . 

the  pacc_wpd_we i gh t _va 1  of  pace _wpd_ i nf o  is  X 
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the  pacc_wpd_30_n  of  pacc_wpd_30_ i nf a  is  N_1  and 
we igh t_per_s tatus ( pacc_wpd_30 , WT_ 1 )  and 
Pacc_wpd_30_WT  =  N_1*WT_1  and 

the  pacc_wpd_30by23_n  of  p acc _wpd_30by23_ i nf o  is  N_2 
and 

weight_per_status( pacc_wpd_30by23 , WT_2 )  and 
Pacc_wpd _30by23_WT  =  N_2*WT_2  and 
the  pace _wpd_30by4_n  of  pace _wpd _30by4_ i nf a  is  N_4  ar 
we  ight_per_status(  pacc_wpd__30by4  ,  WT_4  )  and 
Pacc_wpd_30by4_WT  =  N_4*WT_4  and 
the  pacc_wpd_30by5_n  of  pace _wpd_30by5_ i nf o  is  N_5  ar 
we i gh t_per_sta  tus ( pacc_wpd_30by5  j  WT_5 )  and 
Pacc_wpd_30by5_WT  =  N_5*WT_5  and 
the  pace _wpd_30by6_n  of  pacc_wpd_30by6_info  is  N_6  ar 
weight__per_status  <  pacc_wpd_30by6  ,  WT_6  )  and 
Pacc_wpd_30by6_WT  =  N_6*WT_6  and 
X  =  Pacc_wpd_30_WT  +■  Pacc_wpd_30by23_WT  + 
Pacc_wpd_30by4_WT  + 

Pacc_wpd_30by5_WT  +  Pacc_wpd_30by6_WT . 

the  accpd_weight_val  of  accpd_info  is  X 
if 

the  accpd_30_n  of  accpd_30_ i  nf o  is  N_1  and 
wei gh t_per_status ( accpd_30 , WT_ 1 )  and 
Accpd_30_WT  =  N_  1  *WT__  1  and 
the  accpd_30by2_n  of  accpd_30by2_ i nf o  is  N_2  and 
weigh  t_per_s tatus ( accpd_30by2  » WT_2  >  and 
Accpd_30by2_WT  =  N_2*WT_2  and 
the  accpd_30by3_n  of  accpd__30by3_ i  nf  o  is  N_3  and 
weight_per_status( accpd_30by3 , WT_3 )  and 
Accpd_30by3_WT  =  N_3*WT_3  and 
the  accpd_30by4_n  of  accpd_30by4_ i nf o  is  N_4  and 
we igh t _per  _s tatus ( accpd_30by4 , WT_4 )  and 
Accpd_30by4_WT  =  N_4*WT_4  and 
the  accpd_30by5_n  of  accpd_30by5_ i nf o  is  N_5  and 
we igh t_per_s tatus ( accpd_30by5 , WT_5 )  and 
Accpd _30by5_WT  =  N_5*WT_5  and 
the  accpd_30by6_n  of  accpd_30by6_ info  is  N_6  and 
weight_per_status( accpd  _30by6 » WT_6 )  and 
Accpd_30by6_WT  =  N_6*WT_6  and 
X  =  Accpd_30_WT  +  Accpd_30by2_WT  +  Accpd_30b y 3_WT  + 
Accpd_30by4_WT  +  Accpd_30by5_WT  +  Accpd_30by6_WT . 

the  c wpd _we i gh t _va 1  of  cur waspd _ i nf o  is  X 
if 

the  cwpd_n  of  cwpd_info  is  N_1  and 
we ight_per_status(cwpd,WT_l )  and 
Cwpd_WT  =  N_1*WT_1  and 
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the  cwpd_30_n 
weight_per_sta 
Cwpd_30_WT 
the  cwpd_30by2 
weight _per_sta 
Cwpd_30by2 
the  cwpd_30by3 
weight_per_sta 
Cwpd_30by3 
the  cwpd_30by4 
we ight_per_sta 
Cwpd_30by4 
the  cwpd_30by5 
weight__per_sta 
Cwpd_30by5 
the  cwpd_30by6 
weight_per_sta 
Cwpd_30by6 
X  =  Cwpd_WT  + 
Cwpd_30by3_WT 
Cwpd_30by4_WT 


of  cwpd_30_info  is  N_2  and 
tus ( cwpd_30 , WT_2 )  and 
=  N_2*WT_2  and 

_n  of  c wpd_30by2_info  is  N_3  and 
tus ( cwpd_30by2 > WT_3 )  and 
_WT  =  N_3*WT_3  and 

_n  of  cwpd_30by3_ i nf o  is  N_4  and 

tus < cwpd_30by3 * WT_4 )  and 

_UIT  =  N_4*WT_4  and 

_n  of  cwpd_30by4 _ i nf o  is  N_5  and 

tus < cwpd_30by4 , WT_5 >  and 

_WT  =  N_5*WT_5  and 

_n  of  cwpd_30by5_ i nf o  is  N_6  and 

tus ( cwpd_30by5 , WT_6 )  and 

_WT  =  N_6*WT_6  and 

_n  of  cwpd_30by6_i nf o  is  N_7  and 

tus ( cwpd_30by6 » WT_7 )  and 

_WT  =  N_7*WT_7  and 

Cwpd_30_WT  +  Cwpd_30by2_WT  + 

+ 

*■  Cwpd_30by5_WT  +  Cwpd_30by6_WT . 


the  del i nq_wei gh t_va  1  of  delinq_info  is  X 
if 

the  d_60_n  of  d_60_info  is  N_1  and 
weight_per_status(del inq_60, WT_1 )  and 
D_60_WT  =  N_1*WT_1  and 
the  d_90_n  of  d_90_info  is  N_2  and 
we i gh  t _per  _sta tus (deli nq_90 , WT_2 )  and 
D_90_UIT  =  N_2*WT_2  and 
the  d_120_n  of  d_120_info  is  N_3  and 
wei gh  t _per_s ta tus { de 1 i nq_ 1 20 , WT  _3 >  and 
D_ 1 20_WT  =  N_ 3*WT_3  and 
the  d_150_n  of  d_150_info  is  N_4  and 
weiqht_per_status(del inq_150»WT_4>  and 
D_ 1 50_WT  =  N_4*WT_4  and 
the  d-180_n  of  d_180_info  is  N_5  and 
weight_per_status(del inq_180,WT_5>  and 
D_ 1 80  _WT  =  N_5*WT_5  and 
X  =  D  60  WT  +  D  90  WT  +  D  120  WT  +  D  150  WT 


the  cur _was_we i gh t _va 1  of  cur_was_info  is  X 
i  f 

the  c_w_60_n  of  c_w_60_info  is  N_1  and 
we ight_per_status(c_w_60, WT_ 1 )  and 
C_w_60_WT  =  N_ 1 *WT_ 1  and 
the  c  w  90  n  of  c  w  90  info  is  N  2  and 


+■  D  180  WT, 


we i gh t  _per_status ( c_w_90 , WT_2 )  and 
C_w_90_ WT  =  N_2*WT_2  and 
the  c_w_120_n  of  c_w_120_info  is  N_3  and 
weight_per_status(c_w_120,WT_3)  and 
C_w_ 1 20_WT  =  N_3*WT_3  and 
the  c_w_150_n  of  c_w_150_info  is  N_4  and 
we ight_per_status<c_w_150,WT_4>  and 
C_w_  1 50_WT  =  NI_4*WT_4  and 
the  c_w_180_n  of  c_w_180_info  is  N_5  and 
weight_per_status(c_w_180.WT_5>  and 
C_w_180_UIT  =  N_5*WT_5  and 
X  =  C_w_60_WT  +  C_w_90_WT  +  C  w_l20_WT  + 
C  w  150  WT  +  C  w  180  WT. 


the  pdbyd 1 r _we igh t _va 1  of  pdbydlr_info  is  X 

if  the  pdbydlr_n  of  pdbydlr_info  is  N_1  and 

weigh t_per _status ( pdbyd 1 r , WT_ 1 )  and 
X  =  N  1#WT  1 . 


the  col l_acct_weight_val  of  col l_acct_info  is  X 
i  f 

the  coll_acct_n  of.  col  l_acct_info  is  N  and 
weight_per_status ( co 1 1 _acc t , WT )  and 
X  =  N*WT. 


the  charge_off_weight_val  of  charge_of f _ i nf o  is  X 
if 

the  charge_off_n  of  charge_o f f _ i nf o  is  N  and 
weight_per_status(charge_off,wr>  and 
X  =  N*WT. 

the  i nq_we igh t_va 1  of  inquiry_info  is  X 
if 

the  no_of_inq  of  inquiry_info  is  N  and 
we ight_per_status( inquiry,WT)  and 
X  =  N*W  r . 

the  curr _acc t _n_we igh t _va 1  of  superp ayer _ i nf o  is  X 
if 

the  curr_acct_n  of  superpayer _ i nf o  is  N  and 
weiqht_per_status(curr_acct ,WT )  and 
X  =  N*WT. 

the  superpayer _we i gh t _ va 1  of  super payer _ i nf o  is  X 
i  f 

the  mon th 1 y_paymen t  of  the  superpayer _ i nf o  is  E  and 
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the  month  1 y_ 1 ncome  of  the  per sona 1 _ 1 nfo  is  I  and 
E  >  I  and  weight_for_superpayer IX). 

the  superpayer _we i gh t_va 1  of  superpayer _ i nfo  is  X 
if 

the  month  1 y_payment  of  the  super payer _ i nfo  is  E  and 
the  month  1 y_ i ncome  of  the  per sona 1 _ i nf o  is  I  and 
E  <  I  and 
X  =  0. 

month  1 y_payment  of  super payer _ i nfo  is  E 
i  f 

ssn  of  per sona 1 _ i nfo  is  SSN  and 
compute_total_monthl y_payment ( SSN , E ) . 


month  1 y_ l ncome  of  per sona 1 _ i nfo  is  I 
l  f 

ssn  of  personal_info  is  SSN  and 
compu te_d i scret i onary_ i ncome < SSN , I ) . 


the  i nsc 1  a im_we igh t _va 1  of  i nsc 1  a i m_ i nf o  is  X 
i  f 

the  insclaim_n  of  insc laim_info  xs  N_1  and 
weight_per _status ( insc laim, WT_1 )  and 
X  =  N_1*WT_1 . 

the  no tpdaa_we igh t_va 1  of  notpdaa_info  is  X 
i  f 

the  notpdaa_n  of  notpdaa_info  is  N_1  and 
we i gh t _per _sta tus ( no tpdaa , WT_ 1 )  and 
X  =  N_ 1 *WT_ 1 . 

the  volnrepo_weight_val  of  vo lnrepo_ info  is  X 
i  f 

the  volnrepo_n  of  vo 1  nr epo _ i nf o  is  N_1  and 
weight _per_status( vo 1  nr epo,WT_l  )  and 
X  =  N  1 *WT  1 . 


/*  CRD13.TAX  (TAXONOMY)  How  the  knowledge  is 
represented*/ 

type  we i gh t _p t _ i nf o  =  role. 

type  cut_off_info  =  role. 

type  cus tomer _pr of i 1 e_ i nf o  =  role. 

type  superpayer  info  =  role. 


type  bankrupt^ info  =  role, 
type  currency_info  =  role, 
type  bk _already_info  =  role. 

type  trw_info  =  role. 

type  i nd x v idua 1 _ i nf o  =  role. 

type  conclusion_info  =  rale. 

type  per sona 1 _ i nf o  =  role, 
type  inquiry_info  =  role, 
type  we  1 gh t _p t _va  1  = 

Cex  tr  erne  ly_low,very_law,low,moderately_high, 

high,very_high,extremely_high,alarmingly_high3. 
type  pb_cut_off_val  =  numeric, 
type  ex tr eme 1 y_h igh_cut _of f _va 1  =  numeric, 
type  ver y_h i gh_cut _o f f _ va 1  =  numeric, 
type  h igh_cut _of f _va 1  =  numeric, 
type  moderately_high_cut_off_val  =  numeric, 
type  low_cut_off_val  =  numeric, 
type  very_low_cut_of f _val  =  numeric, 
type  ex treme ly _ 1 ow_cut _off _va 1  =  numeric. 

type  month  1 y_payment  =  numeric, 
type  month  1 y_ i ncome  =  numeric, 
type  ssn  =  numeric, 
type  sal_step  =  numeric, 
type  zip  =  numeric. 

type  m_status  =  C s i ng le , mar r i ed , d i vorcea j . 
type  dob  =  numeric, 
type  concluded  = 

C  too_many_accts i5uperpayar,narmal satisfactory , 
poor, ver y_poor , ser i ous , 

critical, pot ential_bankr up  t, very _critical3 , 

type  curr_acct_n  =  numeric. 

type  cur r _acc t _n_we i gh t _va  1  =  numeric. 

type  cur_was_vals  =  L 60 , 90 , 1 20 , 1 50 , 1 80 , f or , co 1 3 .  type 
paid_vals  = 

C90, 120, 150, 180, collac, repo, chgoff,foreclo,bydler] . 

type  del inq_vals  =  C60 , 90 , 1 20 , 1 50 , 1 80 1 . 
type  del inq_was_vals  =  [90,1203. 
type  bk_vals  = 

Cbk_7_fi le,bk_7_disc,bk_7_dism,bk_l 1 _f i le, 
bk_l i_disc,bk_l l_dism,bk_13_fi le,bk_13_dism, 
bk_13_comp,not_bankrupt3  . 
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1 

type 

conc_bank  =  Cbk_red » bk_green , bk_ye 1  low , bk_orange 3 . 

type 

curr _acct_info  =  role. 

BP 

type 

cur_was_info  =  role. 

1 an 

type 

delinq_info  =  role. 

type 

paid_info  =  role. 

mm 

type 

co 1 1 _acc t _ i nf o  =  role. 

type 

x _30_day _de 1 _ i nfo  =  role. 

on 

type 

pd_co 1 1 _ac_ i nf o  =  role. 

1 

type 

char ge_of f_ i nfo  =  role. 

type 

bk_l iq_reo_info  =  role. 

type 

f orec 1  osar e_ i nfo  =  role. 

type 

judgment_info  =  role. 

type 

repo_info  =  role. 

btfl 

type 

pdbydlr_info  =  role. 

SB 

type 

no_of_inq  =  numeric. 

mB 

type 

c_w_60_info  =  role. 

m 

type 

c_w_90_infa  =  role. 

type 

c_w_120_info  =  role. 

1 

type 

c_w_150_infa  =  role. 

type 

c_w_180_info  =  role. 

1 

type 

c_w_60_n  =  numeric. 

vfl 

type 

c  _w_60_a  =  numeric. 

mm 

type 

c_w_90_n  =  numeric. 

■ 

type 

c_w_90_a  =  numeric. 

type 

c_w_lSO_n  =  numeric. 

type 

c_w_120_a  =  numeric. 

,v 

type 

c_w_150_n  =  numeric. 

& 

type 

c_w_150_a  -  numeric. 

type 

c_w_180_n  =  numeric. 

$ 

type 

c_w_180_a  =  numeric. 

* 

type 

d_60_info  =  role. 

rr 

type 

d_90_info  =  role. 

*1  * 

type 

d_120_info  =  role. 

,y 

type 

d_150_info  =  role. 

type 

d_180_info  =  role. 

type 

d_60_n  =  numeric. 

1 

type 

d_60_a  =  numeric. 

•V 

type 

d_90_n  =  numeric. 

y! 

type 

d_90_a  =  numeric. 

K 

type 

d_120_n  =  numeric. 

:  m, 

i  type 

d_120_a  =  numeric. 

type 

d_150_n  =  numeric. 

type 

d_150_a  =  numeric. 

* M&' 

type 

d_180_n  =  numeric. 

type 

d_180_a  =  numeric. 

% 

,v 

type 

pdbydlr_n  =  numeric. 

y 

type 

pdbydlr_a  =  numeric. 

A 
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type  debt_equi ty_rat io  =  numeric, 
type  bk_ 1 iq_reo_n  =  numeric, 
type  coll_acct_n  =  numeric, 
type  coll_acct_a  =  numeric, 
type  x_30_day_de 1 _n  =  numeric, 
type  x_30_day_de 1 _a  =  numeric, 
type  curr_acct_n  =  numeric, 
type  overal l_weiqht_val  =  numeric, 
type  pub  1 i c_r ecord_va 1  =  numeric, 
type  private_record_val  =  numeric. 

type  set _of _bkr p t s_and _ 1 i ens_we i gh t _va 1  =  numeric, 
type  set_of _m i sc_pub 1 i c _ i tems_we i gh t _va 1  =  numeric, 
type  set _of_cur rent _and_pa id_acc ts_we i gh t_va 1  = 
numer ic . 

type  set_of_del inq_accts_weight_val  =  numeric. 

type  se  t  _of  _m  i  sc_pr  i  va  te_  i  tems_u«je  i  gh  t  _va  1  =  numeric. 

type  del inq_weight_val  =  numeric. 

type  cur_was_weight_val  =  numeric. 

type  col l_acct_weight_val  =  numeric. 

type  pd_coll_ac_n  =  numeric. 

type  pd_coll_ac_a  =  numeric. 

type  pd_co 1 l_ac_weight_val  =  numeric. 

type  charge_off_n  =  numeric. 

type  charge_off_a  =  numeric. 

type  charge_of f _weight_val  =  numeric. 

type  inq_weight_val  =  numeric. 

type  superpayer_weight_val  =  numeric. 

type  foreclo5ure_weight_val  =  numeric. 

type  judgment_weight_val  =  numeric. 

type  repo_weight_val  =  numeric. 

type  pdbyd 1 r _we igh t _va 1  =  numeric. 

type  i nsc 1  a i m_ i nf o  =  role. 

type  insclaim_n  =  numeric. 

type  insclaim_a  =  numeric. 

type  i nsc 1  a im_we i gh t _va 1  =  numeric. 

type  notpdaa_info  =  role. 

type  notpdaa_n  =  numeric. 

type  notpdaa_a  =  numeric. 

tvoe  no tpdaa_we l gh t _va 1  =  numeric. 

type  volnrepo_info  =  role. 

type  volnrepo_n  =  numer i c . 

type  voinrepo_a  =  numeric. 

type  vo 1  nr epo _we igh t _va 1  =  numeric. 

type  cwpd_we i gh t _va 1  =  numeric. 

type  curwaspd_info  =  role. 

type  cwpd_info  =  role. 

type  c wpd_30 _ i nf o  =  role. 

type  cwpd_30by2_ i nf o  =  role. 

type  cwpd _30by3_ i nf o  =  role. 
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type  cwpd_30by4_ i nf o  =  role, 
type  cwpd_30by5_ i nf o  =  role, 
type  cwpd_30by6_ i nf o  =  role, 
type  cwpd_n  =  numeric, 
type  cwpd_a  =  numeric, 
type  cwpd_30_n  =  numeric, 
type  cwpd_30_a  =  numeric, 
type  cwpd_30by2_n  =  numeric, 
type  cwpd_30by2_a  =  numeric, 
type  cwpd_30by3_n  =  numeric, 
type  cwpd_30by3_a  =  numeric, 
type  cwpd_30by4_n  =  numeric, 
type  cwpd_30by4_a  =  numeric, 
type  cwpd_30by5_n  =  numeric, 
type  cwpd_30by5_a  =  numeric, 
type  cwpd_30by6_n  =  numeric, 
type  cwpd_30by6_a  =  numeric, 
type  accpd_weight_val  =  numeric, 
type  accpd_info  =  role, 
type  accpd_30_info  =  role, 
type  accpd_30by2_info  =  role, 
type  accpd_30by3_i nfo  =  role, 
type  ac c pd_ 30b y4_ info  =  role, 
type  accpd_30by5_ i nf o  =  role, 
type  accpd_30by6_i nf o  =  role, 
type  accpd_30_n  =  numeric, 
type  accpd_30_a  =  numeric, 
type  accpd_30by2_n  =  numeric, 
type  accpd_30by2_a  =  numeric, 
type  accpd_30by3_n  =  numeric, 
type  accpd_30by3_a  =  numeric, 
type  accpd_30by4_n  =  numeric, 
type  accpd_30by4_a  =  numeric, 
type  accpd_30by5_n  =  numeric, 
type  accpd_30by5_a  =  numeric, 
type  accpd_30by6_n  =  numeric, 
type  accpd_30by6_a  =  numeric, 
type  pacc_wpd_ inf o  =  role, 
type  pacc_wpd_30_ i nf o  =  role, 
type  pace  _wpd _30by23_ i nfo  =  role 
type  pacc_wpd_30by4_info  =  role, 
type  pace _wpd_30by5_ i nfo  =  role, 
type  pacc_wpd_30by6_ info  =  role, 
type  pacc_wpd_30_n  =  numeric, 
type  pacc_wpd_30_a  =  numeric, 
type  pacc_wpd _30by23_n  =  numeric 
type  pace _wpd_30by23_a  =  numeric 
type  pacc_wpd_30by4_n  =  numeric, 
type  pacc_wpd_30by4_a  =  numeric. 
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type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
type 
t  vpe 
type 
type 
type 
type 
type 
type 
type 
type 
type 


pacc_wpd_30by5_n  =  numeric, 
pace _wpd_30by5_a  =  numeric. 
pacc_wpd_30by6_n  =  numeric. 
pacc_wpd_30by6_a  =  numeric. 
pacc_wpd_weight_val  =  numeric. 
suit_info  =  role. 
suit_n  =  numeric. 
suit_a  =  numeric, 
su i t_we i gh t_va  1  =  numeric. 
pacc_wdel_info  =  role. 
pacc_wdel60_info  =  role, 
pace _wde 1 90_ i nf o  =  role. 
pacc_wdel 120_info  =  role. 
pacc_wde 1 1 50_ i nf o  =  role. 
pacc_wdel 1 80_ i nf o  =  role. 
pacc_wde 1 60_n  =  numeric, 
pace _wde 1 60_a  =  numeric. 
pacc_wdel90_n  =  numeric. 
pacc_wdel90_a  =  numeric. 
pacc_wdel 120_n  =  numeric, 
pace  wdell20  a  =  numeric. 


=  numeric. 


pacc_wdel 120_a  =  numeric. 
pacc_wde 1 1 50_n  =  numeric, 
pace _wde 1 1 50_a  =  numeric. 
pacc_wde 1 1 SO_n  =  numeric. 
pacc_wdell80_a  =  numeric. 
pacc_wdel_weight_val  =  numeric. 
pd_repo_infa  =  rale. 
pd_repa_n  =  numeric. 
pd_repa_a  =  numeric. 
pd_repo_weigh t_va 1  =  numeric. 
pd_chg_of f _ i nf o  =  role. 
pd_chg_aff_n  =  numeric. 
pd_chg_off_a  =  numeric. 
pd_chg_of f _weight_val  =  numeric 
pd_forec lo_ i nfo  =  role. 
pd_foreclo_n  =  numeric. 
pd_foreclo_a  =  numeric, 
pd _f or ec 1 o _we i gh t _va  1  =  numeric 
bk 1 i qr ea _ i nf o  =  role, 
bk 1 iqreo_n  =  numeric. 
bkliqreo_a  =  numeric, 
bk 1 iqreo_weight_va 1  =  numeric. 
settled_infa  =  role. 
settled_n  =  numeric. 
settled_a  =  numeric, 
sett led_weight_val  =  numeric. 
bk_ad j_p ln_ inf o  =  role. 
bk_adj_pln_n  =  numeric. 


=  numer l c 
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type  bk_adj_pln_a  =  numeric. 

type  bk_ad j_p ln_weight_val  =  numeric. 

type  scnl_nwloc_info  =  rale. 

type  scnl_nwlac_n  =  numeric. 

type  scnl_nwloc_a  =  numeric. 

type  scnl_nwloc_weight_val  =  numeric. 

type  co_now_pay_info  =  rale. 

type  co_now_pay_n  =  numeric. 

type  co_naw_pay_a  =  numeric. 

type  co_now_pay_we 1 gh t _va 1  =  numeric. 

type  fore_proc_info  =  role. 

type  fore_proc_n  =  numeric. 

type  tare_proc_a  =  numeric. 

type  fore_proc_weight_val  =  numeric. 

type  gov_claim_info  =  role. 

type  gov_claim_n  =  numeric. 

type  gov_claim_a  =  numeric. 

type  go v_c 1  a im_we i gh t_va 1  =  numeric. 

type  c 1 ose_np_aa_ i nf o  =  role. 

type  c lose_np_aa_n  =  numeric. 

type  c 1 ose_np_aa_a  =  numeric. 

type  close_np_aa_weight_val  =  numeric. 

type  scnl_info  =  role. 

type  scnl_n  =  numeric. 

type  scnl_a  =  numeric. 

type  scnl_weight_val  =  numeric. 

type  fed_tax_ln_info  =  role. 

type  fed_tax_ln_n  =  numeric. 

type  fed_tax_ln__a  =  numeric. 

type  f ed_tax_ 1 n_we i gh t _va 1  =  numeric. 

type  f ed_ tax_r el _ i nf a  =  role. 

type  f ed_tax_rel _n  =  numeric. 

type  f ed_tax_rel _a  =  numeric. 

type  f ed_tax_r e 1 _we i gh t_va  1  =  numeric. 

type  judgmt_sat_info  =  role. 

type  judgmt_sat_n  =  numeric. 

type  judgmt_sat_a  =  numeric. 

type  judgmt_sat_we  ight_va  1  =  numeric. 

type  judg_vaca t _ i nf o  =  role. 

type  judg_vacat_n  =  numeric. 

type  judg_vacat_a  =  numeric. 

type  judg_vacat_weight_val  =  numeric. 

type  mech _ 1 i en_ i nf o  =  role. 

type  mech_lien_n  =  numeric. 

type  mech_lien_a  =  numeric. 

type  mech _ 1 ien_we igh t_va 1  =  numeric. 

type  mech_r e 1 e_ i nf o  =  role. 

type  mech_rele_n  =  numeric. 
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type  mech_rele_a  =  numeric, 
type  mech _re 1 e_we ight_va 1  = 
type  mn_mtg_f i 1 _ i nf o  =  role 
type  mn_mtg_fil_n  =  numeric 
type  mn_mtg_fil_a  =  numeric 
type  mn_mtg_f i 1 _we i ght_va 1 
type  nt_respon_info  =  role, 
type  nt_respon__n  =  numeric, 
type  nt_respon_a  =  numeric, 
type  nt_respon_weight_val  = 
type  s ta t _ t x_ 1 n_ i nf o  =  role 
type  stat_tx_ln_n  =  numeric 
type  stat_tx_ln_a  =  numeric 
type  sta t _ t x_ 1 n_we i gh t _va 1 
type  sta_tx_rel_info  =  role 
type  sta_tx_rel_n  =  numeric 
type  sta_tx_rel_a  =  numeric 
type  sta_tx_rel_weight_val 
type  sui t_d ismd_i nfo  =  role 
type  suit_dismd_n  =  numeric 
type  suit_dismd_a  =  numeric 
type  sui t_d i smd_we igh t _va 1  : 
type  wage_as i gn_ i nf o  =  role 
type  wage_asign_n  =  numeric 
type  wage_asign_a  =  numeric 
type  wage_asign_weight_val  ■ 
type  wa_r e 1 ease_ i nfo  =  role 
type  wa_release_n  =  numeric 
type  wa_release_a  =  numeric 
type  wa_release_weight_val  : 
type  ref inanced_info  =  rale 
type  ref inanced_n  =  numeric 
type  ref inanced_a  =  numeric 
type  ref inanced_weight_val 
type  cr_cd_lost_info  =  role 
type  cr_cd_lost_n  =  numeric 
type  cr_cd_lost_a  =  numeric 
type  cr _cd_ 1  os t _we i gh t _ va 1 
type  c  1  os _ i nac _ l nf o  =  role. 
clo  =  _inac__n  =  numeric, 
type  clos_inac_a  =  numeric, 
type  c 1 05_ i nac _we i gh t _va 1  = 

type  transf ered_ info  =  role 
type  transfered_n  =  numeric 
type  transfered_a  =  numeric 
type  transf ered _we i gh t _va 1 
type  too _new_r t_ i nf o  =  role 
type  too_new_rt_n  =  numeric 


numer i c . 


=  numer i c , 


numer  l  c  . 


=  numer l c 


=  numer i c 


numer l c , 


=  numer i c 


=  numer  i  c 


=  numer i c 


=  numer i c . 


numer i c . 


=  numer i c 
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type  tao_new_rt_a  =  numeric. 

type  too _new_r t_we igh t_va 1  =  numeric. 

type  paid_sat is_info  =  role. 

type  paid_satis_n  =  numeric. 

type  paid_satis_a  =  numeric. 

type  paid_sat is_weight_val  =  numeric. 

type  pa i d_acc t _ i nf o  =  role. 

type  paid_acct_n  =  numeric. 

type  paid_acct_a  =  numeric. 

type  paid_acct_weiqht_val  =  numeric. 

type  cr _ 1 n_c los_ 1 nf o  =  role. 

type  cr_ln_clos_n  =  numeric. 

type  cr_ln_clos_a  =  numeric. 

type  cr_ln_clos_weight_val  =  numeric. 

type  deceased,, i nfo  =  role. 

type  deceased_n  =  numeric. 

type  deceased_a  =  numeric. 

type  deceased_weight_val  =  numeric. 

type  redmd_repo_info  =  role. 

type  redmd_repa_n  =  numeric. 

type  redmd_repo_a  =  numeric. 

type  redmd_repo_weight_val  =  numeric. 

type  cur,was_col_info  =  role. 

type  cur_was_col_n  =  numeric. 

type  cur_was,col_a  =  numeric. 

type  cur _was_co 1 _we i gh t _va 1  =  numeric 

type  cr _ ln_rnst_ i nf o  =  role. 

type  cr_ln_rnst_n  —  numeric. 

type  cr_ln_rnst_a  =  numeric. 

type  cr _ 1 n_r nst _weigh t _va 1  =  numeric. 

type  cur_was_for_ info  =  role. 

type  cur _was_f or _n  =  numeric. 

type  cur,was_for_a  =  numeric. 

type  cur _was_f or _we igh t _va 1  =  numeric 

type  pd_not_aa_info  =  rale. 

type  pd_not_aa_n  =  numeric. 

type  od_not_aa_a  =  numeric. 

type  pd_not_aa_weight_val  =  numeric. 

type  c i ty_t x _ 1 n_ i nf o  =  role. 

type  city_tx_ln_n  =  numeric. 

type  city_tx_ln_a  =  numeric. 

type  c i t y _ t x _ 1 n_we i gh t _va i  =  numeric. 

type  c i t y_ t x _r e 1 _ l nf o  =  role. 

type  city_tx_rel_n  =  numeric. 

type  c l t y _ t x _r e 1 _a  =  numeric. 

type  c i t y_ t x_r e 1 _we i gh t _va  1  =  numeric 
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type 

type 

type 

type 

type 

type 

type 

type 

type 

type 

type 


conse 1 
conse 1 
consel 
consel 
co_tax 
co_tax 
co_tax 
co_tax 
co_tax 
co  _tax 
co_tax 
co  tax 


_ser_mfo  =  role. 
ser_n  =  numeric. 
ser_a  =  numeric, 
ser _we i gh t _va 1  =  numeric. 
1 n_ i nf o  =  role. 
ln_n  =  numeric. 

1 n_a  =  numer i c . 

1 n_we i gh t _va 1  =  numeric, 

r e 1 _ i nf o  =  role. 
rel_n  =  numeric. 

_rel_a  =  numeric, 
re  1 _we i gh t_ va 1  =  numeric 


define  primitive  perserec  with 

customer _pr of i 1 e_ i nfo  =  customer _pr of i 1 e  and 

super payer _ i nfo  =  superpayer  ani 

bankr up t _ i nf o  =  bankrupt  and 

we i gh t_p t _ i nf o  =  weight_pt  and 

cut_off_info  =  cut_off  and 

cone  1  us ion_ i nf a  =  conclusion. 

define  primitive  customer _prof i le  with 
per Sana  1 _ i nf o  =  personal  and 
trw_info  =  trw. 


define  primitive  superpayer  with 
debt_equi ty_rat 10  =  (0,3)  and 
curr_acct_n  =  (0,100)  and 

curr _acc t_n_weight_val  =  (0,1000)  and 
month  1 y_payment  =  (0,20000)  and 

superpayer _weight_va 1  =  (0,1000). 

define  primitive  bankrupt  with 

conc_bank  =  C bk _r ed , b k _gr een , b k _ye 1 1 o w , bk _or ange ] 

define  primitive  weight_pt  with 
we ight_pt_val  = 

lextremely_low,very_low,  low, mod  er  ately_high, 

high,very_high,extremeiy_high,alarmingly_high]. 

deTine  primitive  cut_off  with 

pb _cut _of f _va 1  =  (399,401)  and 

ex t r erne  1 y _h i gh_cu t _of f _ va 1  =  (200,250)  and 

ver y _h i gh _cu t _o f f _ va 1  =  (170,199)  and 

h  i  gh _c u t _o f f _ va  1  =  (120,149)  and 

mo der a t e 1 y _h i gh _cu t _o f f _ va  1  —  (100,119)  and 

low_cut_of f _va 1  =  (80,99)  and 

very  low  cut  off  val  =  (40,59)  and 
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ex treme 1 y_ 1 ow_cu t _of f _va 1  =  (0,39). 

define  primitive  conclusion  with 
concluded  = 

[too  _many_acc ts , super payer , normal , satisfactory, 
poor, very_poor, serious, 

critical, pot ential_b a nkrupt,very_critical 1 
and 

overal l_weight_val  =  (0,10000)  and 
pub  1 i c_r ecor d_va 1  =  (0,10000)  and 

private_record_val  =  (0,10000)  and 
set_of_bkrpts_and_l i ens_we ight_val  = 

( 0 , 10000 )  and 

se t _of _m isc_publ ic_i t ems_we ight_val  = 
(0,10000)  and 

set_of _current_and_paid_acc ts_weight_val  = 
(0,10000T  and 

set _of _de 1 i nq_acc ts _wei gh t _va 1  =  (0,10000) 
and 

set_of _misc_pr ivate_items_weight_val  = 

(0, 10000) . 

define  primitive  personal  with 
ssn  =  (1,999999999)  and 
2  ip  =  (10000,99999)  and 

m  status  =  [single,married,divorced]  and 
dob  =  (1900,1986)  and 
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month  1 y_ i ncome  =  (0,20000). 


define  primitive  trw  with 

curr_acct_inf o  =  curr_acct  and 
cur_was_inf a  =  cur_was  and 
delinq_info  =  delinq  and 
pdbydlr_info  =  pdbydlr  and 
co  1  1  _acc t_ i nf o  =  col l_acct  and 
x_30_day _de 1 _ i nf o  =  x_30_day  del  and 
b k _  1  l q_r eo_ i nf o  =  bk_liq_reo  and 
bk  _va Is  = 

[bk_7_file,bk_7_disc,bk_7_dism,bk_ll_file,bk_ll_disc, 
bk_l  l_dism,bk_13_fi le,bk_13_dism,bk_13_com- 
p,not_bankruptl 
and 

pd _co 1 1 _ac _ i nf o  =  pd_coll_ac  and 
charge_cf f _ i nf o  =  charge_off  and 
foreclosure_info  =  foreclosure  and 
judgment_inf o  =  judgment  and 
repo_info  =  repo  and 
inquiry_jnfo  =  inquiry  and 
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l nsc 1  a im_ i nf o  =  insclaim  and 
notpdaa_info  =  notpdaa  and 
vq lnrepo_ i nf o  =  valnrepo  and 
curwaspd_i nf o  =  curwaspd  and 
accpd_info  =  accpd  and 
pacc_wpd_ i nf o  =  pacc_wpd  and 
suit_info  =  suit  and 
pd_repo_info  =  pd_repo  and 
pd_chg_of f _info  =  pd_chg_off  and 
pd_f orec 1 o_ i nf o  =  pd_foreclo  and 
bk 1 iqrea_ i nfo  =  bkliqrea  and 
pacc_wde 1 _ i nf o  =  pacc_wdel  and 
settled_info  =  settled  and 
bk _ad j _p 1 n_ i nf o  =  bk_adj_pln  and 
sen  1 _nw 1 oc _ i nf o  =  scnl_nwloc  and 
co _no w_pay_ i nf o  —  co_now_pay  and 
f ore_proc _i nf a  =  fore_proc  and 
gov_claim__info  =  gov_claim  and 
c 1 ose_np_aa_ i nf o  =  close_np_aa  and 
scnl_info  =  scnl  and 
f ed_tax_ 1 n_ i nf o  =  fed_tax_ln  and 
fed_tax_rel_info  =  fed_tax_rel  and 
judgmt_sat_inf a  =  judgmt_sat  and 
judg_vacat_info  =  judg_vacat  and 
mech_l ien_info  =  mech_l ien  and 
mech_rele__info  =  mech_rele  and 
mn_mtg_f i 1 _ i nf o  =  mn_mtg_fil  and 
nt_respon_ i nf o  *  nt_respon  and 


stat_tx_ln_info 
sta_tx_rel_info 
su i t _d i smd_i nfo 
wage_asiqn_info 
wa_r e 1 ease_ info 
ref i nanced_ i nfo 
cr  cd  lost  info 


stat_tx_ln  and 
sta_tx_rel  and 
suit_dismd  and 
wage_asign  and 
wa_release  and 
refinanced  and 
cr  cd  lost  and 


c 1 os_ i nac_ i nf o  =  clos_inac  and 
transfered_info  =  transfered  and 
too _new_r t_ i nfo  =  toa_new_rt  and 
pa id_sat is_info  =  paid_satis  and 
paid _acc t _ x nfo  =  paid_acct  and 
cr_ln_c los_info  =  cr_ln_clos  and 
deceased^ i nf o  =  deceased  and 
r edmd _r epo _ i nf o  =  redmd_repa  and 
cur _was_co 1 _ i nf o  =  cur_was_col  and 
cr _ ln_rnst_inf o  =  cr_ln_rnst  and 
cur _was _f or _ i nf o  =  cur_was_for  and 
pd _no t _aa_ i nf o  =  pd_not_aa  and 
c i ty_tx_ln_info  =  city_tx_ln  and 
c i ty_tx_rel_info  =  city  tx  rel  and 


x 


i*; 


consel_ser_info  =  consel_ser  and 
co_tax_ln_info  =  co_tax_ln  and 
co_ t ax_re 1 _ i nf o  =  co_tax_rel . 


define  primitive  pacc_wdel  with 

pacc_wdel60_inf o  =  pacc_wdel60  and 
pacc_wdel90_info  =  pacc_wdel90  and 
pacc_wde 1 120_ i nf o  =  pacc_wdell20  and 
pace _wde 1 1 50_ i nf o  =  pacc_wdell50  and 
pace _wde 1 1 B0_ i nf o  =  pacc_wde!180  and 
pacc_wdei_weiqht_val  =  (0,1000). 

define  primitive  pacc_wdel60  with 
pacc_wdel60_n  =  (0,100)  and 
pacc_wde!60_a  =  (0,10000). 


define  primitive  pacc_wdel90  with 
pacc_wdel90_n  =  (0,100)  and 
pacc_wde!90_a  =  (0,10000). 


define  primitive  pacc_wdell20  with 
paccwdel 120_n  =  (0,100)  and 
pacc_wdel I20_a  =  (0,10000). 


define  primitive  pacc_wdell50  with 
pacc_wdel 150_n  =  (0,100)  and 
pacc__wdel  150_a  =  (0,10000). 


define  primitive  pacc_wdell80  with 
pacc_wdel 180_n  =  (0,100)  and 
pacc_wdel 180_a  =  (0,10000). 


define  primitive  suit  with 
suit__n  =  (0,100)  and 
suita  =  (0,10000)  and 
su i t  we igh t _va 1  =  (0,1000) 


define  primitive  cur_was  with 
c_w_60_info  =  c_w_60  and 
c_w_90_info  =  c_w_90  and 
c_w_120_info  =  c_w  120  and 
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c_w_150_info  =  c_w_150  and 
c_w_180_info  =  c_w_i30  and 
cur_was_weight_val  =  (0,1000) 

define  primitive  c_w_60  with 
c_w_60_n  =  (0,100)  and 
c_w_60_a  =  (0,10000). 

define  primitive  c_w_90  with 
c_w_90_n  =  (0,100)  and 
c_w_90_a  =  (0,10000). 

define  primitive  c_w_l£0  with 
c_w_120_n  =  (0,100)  and 
c_w_ 1 20_a  =  (0,10000). 


define  primitive  c_w_150  with 
c_w_150_n  =  (0,100)  and 
c_w_ 150~a  =  (0,10000). 

define  primitive  c_w_180  with 
c_w_180_n  =  (0,100)  and 


c_w_180_a  =  (0,10000) 


define  primitive  delinq  with 
d_60_info  =  d_60  and 
d_90_info  =  d_90  and 
d_120_info  -  d_120  and 
d_150_info  =  d_150  and 
d_180_info  =  d_180  and 
del inq_weight_val  =  (0,1000) 


define  primitive  d_60  with 
d_60_n  =  (0,100)  and 

d  60  a  =  ( 0, 10000) . 


define  primitive  d_90  with 
d_90_n  =  (0,100)  and 
d_90_a  =  ( 0 , 10000 ) . 

define  primitive  d_120  with 
d_120  n  =  (0,100)  and 
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d_ 120_a  =  (0, 10000) . 


define  primitive  d_150  with 
d_150_n  —  (0,100)  and 
d_ 1 50_a  =  (0, 10000) . 


define  primitive  d_180  with 
d  _ 1 80_n  =  (0, 100)  and 
d_ 1 80_a  =  (0, 10000) . 


define  primitive  coll_acct  with 
coll_acct_n  =  (0,100)  and 
coll_acct_a  =  (0,10000)  and 
co 1 l_acct_weight_val  =  (0,1000). 

define  primitive  x_30_day_del  with 
x_30_day_del _n  =  (0,100)  and 
x_30_day_del_a  =  (0,10000). 

define  primitive  bk_liq_reo  with 
bk_liq_reo_n  =  (0,100). 


define  primitive  curr_acct  with 
curr_acct_n  =  (0,100). 

define  primitive  pd_coll_ac  with 
pd_co 1 1 _ac_n  =  (0,100)  and 
pd_coll_ac_a  =  (0,10000)  and 
pd_co 1 1 _ac_weigh t_va 1  =  (0,1000). 

define  primitive  charge_off  with 
charge_off_n  =  (0,100)  and 
charge_off _a  =  (0,10000)  and 
char ge_o  f  f _we ight_val  =  (0,1000). 

define  primitive  inquiry  with 
no  of _i nq  =  (0,100)  and 
inq_weight_val  =  (0,1000). 

define  primitive  foreclosure  with 

f or ec 1 osur e_we i gh t _ va 1  =  (0,1000) 

define  primitive  judgment  with 

judgment_weight  val  =  (0,1000). 


define  primitive  repo  with 

rspo_weight_val  =  (0,1000). 

define  primitive  pdbydlr  with 
pdbydlr_n  =  (0,100)  and 
pdbydl r_a  =  (0,100000)  and 
pdbydlr_weight_val  =  (0,1000). 

define  primitive  insclaim  with 
insclaim_n  =  (0,100)  and 
insclaim_a  =  (0,100000)  and 
insc 1  a i m_we i gh t _va 1  =  (0,1000) 

define  primitive  notpdaa  with 
notpdaa_n  *  (0,100)  and 
notpdaa_a  =  (0,100000)  and 
no tpdaa_we i gh t _va 1  =  (0,1000). 

define  primitive  volnrepo  with 
volnrepo_n  =  (0,100)  and 
volnrepo_a  =  (0,100000)  and 
volnrepo_weight_val  =  (0,1000). 


define  primitive  curwaspd  with 
cwpdinfo  =  cwpd  and 
cwpd_30_info  =  cwpd_30  and 


cwpd _30by2_ info 
cwpd_30by3_ i nf o 
cwpd_30by4_ i nf o 
cwpd_30by5_ info 
cwpd_30by6_ i nf o 
cwpd_weight_val 


cwpd_30by2  and 
cwpd_30by3  and 
cwpd_30by4  and 
cwpd_30by5  and 
cwpd_30by6  and 
<0, 1000) . 


define  primitive  cwpd  with 
cwpdn  =  (0,100)  and 

cwpd_a  =  (0,10000). 

define  primitive  cwpd_30  with 
cwpd_30_n  =  (0,100)  and 
cwpd_30_a  =  (0,10000). 

define  primitive  cwpd_30by2  with 
cwpd_30by2_n  =  (0,100)  and 
cwpd_30by2_a  =  (0,10000). 

define  primitive  cwpd_30by3  with 
cwpd_30by3_n  =  (0,100)  and 


(0, 10000) . 


jjj 


cwpd_30by3_a  = 


define  primitive  cwpd_30by4  with 
cwpd_30by4_n  =  (0,100)  and 
cwpd_30by4_a  =  (0,10000). 


define  primitive  cwpd_30by5  with 
cwpd_30by5_n  =  (0,100)  and 
cwpd_30by5_a  =  (0,10000). 


define  primitive  cwpd_30by6  with 
cwpd_30by6_n  =  (0,100)  and 
cwpd_30by6_a  =  (0,10000). 


define  primitive  accpd  with 

accpd  _30__  i  nfo  =  accpd_30  and 
accpd_30by2_info  =  accpd_30by2  and 
accpd _30by3_ i nfo  =  accpd_30by3  and 
accpd_30by4_ i nf q  =  accpd_30by4  and 
accpd _30by5_ i nfo  =  accpd_30by5  and 
accpd_30by6_ i nf o  =  accpd_30by&  and 
accpd_weight_val  =  (0,1000). 

define  primitive  accpd_30  with 
accpd_30_n  =  (0,100)  and 
accpd_30_a  =  (0,10000). 


define  primitive  accpd_30by2  with 
accpd_30by2_n  =  (0,100)  and 
accpd_30by2_a  =  (0,10000). 


define  primitive  accpd_30by3  with 
accpd _30by3_n  =  (0,100)  and 


accpd_30by3_a  =  (0,10000). 


define  primitive  accpd_30by4  with 
accpd_30by4_n  =  (0,100)  and 
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accpd_30by4_a  =  (0,10000). 

define  primitive  accpd_30by5  with 
accpd_30by5_n  =  (0,100)  and 
accpd_30by5_a  =  (0,10000). 


define  primitive  accpd_30by6  with 
accpd_30by6_n  =  (0,100)  and 
accpd_30by6_a  =  (0,10000). 


define  primitive  pacc_wpd  with 

pacc_wpd_30_ i nf o  =  pacc_wpd_30  and 
pace _wpd_30by23_ i nf o  =  pacc_wpd_30by23  and 
pace _wpd_30by4_ i nf q  =  pacc_wpd_30by4  and 
pacc_wpd_30by5_info  =  pacc_wpd_30by5  and 
pacc_wpd_30by6_info  =  pacc_wpd_30by6  and 
pacc_wpd_weight_val  =  (0,1000). 

define  primitive  pacc_wpd_30  with 
pacc_wpd_30_n  =  (0,100)  and 
pacc_wpd_30_a  =  (0,10000). 


define  primitive  pacc_wpd_30by23  with 
pacc_wpd_30by23_n  =  (0,100)  and 
pacc_wpd_30by23_a  =  (0,10000). 


define  primitive  pacc_wpd_30by4  with 
pace _wpd_30by4_n  =  (0,100)  and 
pacc_wpd_30by4_a  =  (0,10000). 


define  primitive  pace _wpd _30by5  with 
pacc_wpd_30by5_n  =  (0,100)  and 
pace _wpd _30by5_a  =  (0,10000). 


define  primitive  pacc_wpd_30by6  with 
pace _wpd_30by6_n  =  (0,100)  and 
pace _wpd_30by6_a  =  (0,10000). 


define  primitive  pd_repo  with 
pd_repo_n  =  (0,100)  and 
pd_repo_a  =  (0,10000)  and 
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pd_repo_weight_val  =  (0,1000). 

define  primitive  pd_chg_off  with 
pd_chg_off_n  =  (0,100)  and 

pd_chg_off_a  =  (0,10000)  and 

pd_chg_off _weight_val  =  (0,1000) 

define  primitive  pd_foreclo  with 
pd_foreclo_n  =  (0,100)  and 

pd _f orec lo_a  =  (0,10000)  and 

pd_f orec lo_we igh t_val  =  (0,1000) 

define  primitive  bkliqreo  with 
bkliqreo_n  =  (0,100)  and 

bk 1 iqreo_a  =  (0,10000)  and 

bk 1 iqreo_weight_val  =  (0,1000). 

define  primitive  settled  with 
settled_n  =  (0,100)  and 
settled_a  =  (0,10000)  and 
sett led_weight_val  =  (0,1000). 

define  primitive  bk_adj_pln  with 
bk_adj_pln_n  =  (0,100)  and 
bk_adj_pln_a  =  (0,10000)  and 
bk_ad j_pln_weight_val  =  (0,1000) 

define  primitive  scnl_nwloc  with 
scnl_nwloc_n  =  (0,100)  and 
scnl_nwloc_a  =  (0,10000)  and 
scnl_nwloc_weight_val  =  (0,1000). 

define  primitive  co_now_pay  with 
co_now_pay_n  =  (0,100)  and 
co  _now_pay_a  =  (0,10000)  and 
co _no w_pay _we l gh t _ va 1  =  (0,1000). 

define  primitive  fore_proc  with 
fore_proc_n  =  (0,100)  and 
fore_proc_a  =  (0,10000)  and 
fore_proc  weight  val  =  (0,1000). 


define  primitive  gov_claim  with 
gov_claim_n  =  (0,100)  and 
gov  claim_a  =  (0,10000)  and 
gov_c laim_weight_val  =  (0,1000). 

define  primitive  close_np_aa  with 
c lose_np_aa_n  =  (0,100)  and 
c lose_np_aa_a  =  (0,10000)  and 
close_np_aa_weight_val  =  (0,1000) 


define  primitive  scnl  with 
acnl_n  =  (0,100)  and 
scnl _a  =  (0,10000)  and 
scnl _weight_va 1  =  (0,1000). 

define  primitive  fed_tax_ln  with 
fed_tax_ln_n  =  (0,100)  and 
fed_tax_ln_a  =  (0,10000)  and 
fed_tax_ln_weight_val  =  (0,1000). 

define  primitive  fed_tax_rel  with 
fed_tax_rel_n  =  (0,100)  and 
fed_tax_rel_a  =  (0,10000)  and 
fed _tax_re 1 _we igh t _va 1  =  (0,1000) 

define  primitive  judgmt_sat  with 
judgmt_sat_n  =  (0,100)  and 
judgmt_sat_a  =  (0,10000)  and 
judgmt_sat_weight_val  =  (0,1000). 

define  primitive  judg_vacat  with 
judg  _vacat_n  =  (0,100)  and 
judg_vacat_a  =  (0,10000)  and 
}udg_vacat_we i gh t _va 1  =  (0,1000). 

define  primitive  mech_lien  with 
mech_lien_n  =  (0,100)  and 
mech_lien_a  =  (0,10000)  and 
mech_ 1 i en_we i gh t _va 1  =  (0,1000). 

define  primitive  mech_rele  with 
mech_rele_n  =  (0,100)  and 
mech_rele_a  =  (0,10000)  and 
mech_r e 1 e_we i gh t _va 1  =  (0,1000). 

de+ine  primitive  mn_mtg_fil  with 
mn  mtg  fil  n  =  (0,100)  and 


mn_mtg_fil_a  =  (0,10000)  and 
mn_mtg_f i 1 _we igh t _va 1  =  (0,1000). 

define  primitive  nt_respon  with 
nt_respon_n  =  (0,100)  and 
nt_respon_a  =  (0,10000)  and 
nt_respon_weight_val  =  (0,1000). 

define  primitive  stat_tx_ln  with 
stat_tx_ln_n  =  (0,100)  and 
stat_tx_ln_a  =  (0,10000)  and 
stat _tx_ln_weight_val  =  (0,1000). 

define  primitive  sta_tx_rel  with 
sta_tx_rel_n  =  (0,100)  and 
sta_tx_rel_a  =  (0,10000)  and 
sta_tx_rel_weight_val  =  (0,1000). 

define  primitive  suit_dismd  with 
sui t_d ismd_n  =  (0,100)  and 
suit_dismd_a  =  (0,10000)  and 
su i t _d i smd_we i gh t_va 1  =  (0,1000). 

define  primitive  wage_asign  with 
wageasignn  =  (0,100)  and 
wage_asign_a  =  (0,10000)  and 
wage_asign_weight_val  =  (0,1000). 

define  primitive  wa_release  with 
wa_release_n  =  (0,100)  and 
wa_release_a  =  (0,10000)  and 
wa_release_weight_val  =  (0,1000). 

define  primitive  refinanced  with 
ref inanced_n  =  (0,100)  and 
ref inanced_a  =  (0,10000)  and 
ref i nanced_we i gh t _va 1  =  (0,1000). 

define  primitive  cr_cd_lost  with 
cr_cd_lost_n  =  (0,100)  and 

cr_cd_lost_a  =  (0,10000)  and 
cr _cd_lost_weight_val  =  (0,1000). 

define  primitive  clos_inac  with 
clos_inac_n  =  (0,100)  and 

clos_inac_a  =  (0,10000)  and 
clos_inac_weight_val  =  (0,1000). 
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define  primitive  transfered  with 
transfered_n  =  (0*100)  and 
transfered_a  =  (0,10000)  and 
transfered_weight_val  =  (0,1000). 

define  primitive  too_new_rt  with 
too_new_rt_n  =  (0,100)  and 
too_new_rt_a  =  (0,10000)  and 
too_new_r t _we igh t _va 1  =  (0,1000). 

deTine  primitive  paid_satis  with 
paid_satis_n  =  (0,100)  and 
paid_satis_a  =  (0,10000)  and 
pa i d_sat l s_we i gh t_va  1  =  (0,1000). 

define  primitive  paid_acct  with 
paid_acct_n  =  (0,100)  and 
paid_acct_a  =  (0,10000)  and 
paid_acct_weight_val  =  (0,1000). 

define  primitive  cr_ln_clas  with 
c  r _ 1 n_c 1 os_n  =  (0,100)  and 
cr_ln_clas_a  =  (0,10000)  and 
cr _ln_c los_weight_val  =  (0,1000). 

define  primitive  deceased  with 
deceased_n  =  (0,100)  and 

deceased_a  =  (0,10000)  and 
deceased_weight_val  =  (0,1000). 

define  primitive  redmd_repo  with 
redmd_repo_n  =  (0,100)  and 
redmd_repo_a  =  (0,10000)  and 
redmd_repo_we igh t_va 1  =  (0,1000). 

define  primitive  cur_was_col  with 
cur _was_co 1 _n  =  (0,100)  and 
cur _was_co 1 _a  =  (0,10000)  and 

cur _was_co 1 _we i gh t_va 1  =  (0,1000). 

define  primitive  cr_ln__rnst  with 
cr_ln_rnst_n  =  (0,100)  and 

cr_ln_rnst_a  =  (0,10000)  and 
cr _ 1 n_r ns t _we l gh t_va 1  =  (0,1000). 

define  primitive  cur_was_for  with 
cur _was_f or _n  —  (0,100)  and 

cur_was_for_a  =  (0,10000)  and 

cur _was_f or _we igh t _va 1  =  (0,1000). 
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define  primitive  pd_not_aa  with 
pd_no t_aa_n  =  (0,100)  and 
pd_not_aa_a  =  (0,10000)  and 
pd__not_aa_weight_val  =  (0,1000). 

define  primitive  city_tx_ln  with 
city_tx_ln_n  =  (0,100)  and 

city_tx_ln_a  =  (0,10000)  and 
c  i  ty_tx_ln_weight_val  =  (0,1000). 

define  primitive  city_tx_rel  with 
city_tx_rel_n  =  (0,100)  and 
c  i  ty_t x_rel _a  =  (0,10000)  and 
c i ty_ t x_re 1 _we i gh t _va 1  =  (0,1000) 

define  primitive  consel_ser  with 
consel_ser_n  =  (0,100)  and 
consel _ser_a  =  (0,10000)  and 
consel_ser_weight_val  =  (0,1000). 

define  primitive  co_tax_ln  with 
co_tax_ln_n  =  (0,100)  and 
co_tax_ln_a  =  (0,10000)  and 
ca_tax_ln_weight_val  =  (0,1000). 


define  primitive  co_tax_rel  with 
co_tax_rel_n  =  (0,100)  and 

co_tax_rel_a  =  (0,10000)  and 
co_tax_rel_weight_val  =  (0,1000) 


/* - END  QF  CODE 
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APPENDIX  B 
TRW  CREDIT  REMARKS 


This  appendix  describes  the  102  credit  remarks 
currently  used  by  TRW  and  employed  in  tiFTES.  They  were 
included  to  broaden  the  program’s  documentat ion  and 
facilitate  future  maintenance  efforts. 


INQUIRY: 


LR  CD  LOST; 
CLOSE  INAC: 
TRANSFERED: 
TOO  NEW  RT: 
REFINANCED : 
CURR  ACCT : 


PAID  SATIS: 
PAID  ACCT: 

CR  LN  CLOS: 


DECEASED : 

CUR  WAS  DL: 
CUK  WAS  30: 
CUR  WAS  30-2 

LUR  WAS  30-3 

CUR  WAS  30-A 

CUR  WAS  30-5 


ITEMS  OF  PRIVATE  RECORD 

A  copy  of  the  credit  profile  has  been 
sent  to  this  credit  grantor  at  their 
reques t . 

Credit  card  lost  or  stolen. 

Closed  inactive  account. 

Account  transferred  to  another  office. 
Too  new  to  rate. 

Account  renewed  or  refinanced. 

This  is  either  an  open  or  closed  account 
in  good  standing.  If  the  account  is  a 
credit  card  or  charge  account,  it  should 
be  available  for  use  and  there  may  be  a 
balance  due.  If  the  account  is  closed, 
there  were  no  past  due  amounts  reported 
and  i t  was  paid. 

Closed  account/paid  satisfactory. 

Closed  account/zero  balance/not  rated  bv 
credit  grantor. 

Credit  line  c 1 osed /reason  unknown  or  by 
consumer  reques t / there  may  be  a  balance 
due . 

Consumer  deceased. 

Current  account  was  past  due. 

Current  account  was  30  days  past  due. 
Current  account  was  30  days  past  due 
twice. 

Current  account  was  30  days  past  due 
three  times. 

Current  account  was  30  days  past  due 
four  times. 

Current  account  was  30  days  past  due 
f i ve  t i mes . 

Current  account  was  30  days  past  due  si- 
t l mes  or  more . 


CUR  WAS  30+6 : 


CUR 

WAS 

60 

CUR 

WAS 

90 

CUR 

WAS 

120: 

CUR 

WAS 

150: 

CUR 

WAS 

180: 

REDMD  REPO: 

CUR 

WAS 

COL: 

CR 

IN  RNST 

CUR 

WAS 

FOR: 

PD 

NOT 

AA: 

PD 

WAS 

30: 

PD 

WAS 

30-2: 

PD 

WAS 

30-4 : 

PD 

WAS 

30-5: 

PD 

WAS 

30+6: 

PD 

WAS 

60: 

PD 

WAS 

90: 

PD 

WAS 

120 

PD 

WAS 

150: 

PD 

WAS 

180 

PD 

COLL 

AC: 

PD 

REPO 

. 

PD 

CHG 

OFF 

PD 

FORECLO 

PD 

BY  DLER 

BK 

LIU 

REQ 

5E  f  T LEU 

• 

BK 

ADJ 

PLN 

MU  1 

PD 

AA : 

30 

DAY 

DEL: 

30 

2  TIMES 

30 

3  TIMES. 

30 

4  TIMES 

30 

5  TIMES 

3u 

6+T IMES 

Current  account  was  60  days  delinquent. 
Current  account  was  90  days  delinquent. 
Current  account  was  120  days  delinquent. 
Current  account  was  150  days  delinquent. 
Current  account  was  180  days  delinquent. 
Account  was  a  repossess  ion/now  redeemed. 
Current  account  was  a  collection 
account . 

Account  now  available  for  use  and  is  in 
good  standing.  Was  a  closed  account. 
Current  account  foreclosure  was  started. 
Paid  account.  Some  payments  made  past 
the  agreed  due  dates. 

Paid  account/was  past  due  30  days. 

past  due  30  days  2 


Paid  account/was 
t i mes . 

Paid  account/was 
t i mes . 

Paid  account/was 
t imes . 

Paid  account/was 
times  or  more. 
Paid  account/was 
Paid  account/was 
Paid  account/was 
Paid  account/was 
Paid  account/was 
Paid  account/was 


or 


past  due  30  days 
past  due  30  days 
past  due  30  days 


delinquent  60  days, 
delinquent  90  days, 
delinquent  120  days, 
delinquent  150  days, 
delinquent  180  days, 
a  collection  account 
insurance  claim  or  education  claim. 

Paid  account/was  a  repossession. 

Paid  account/was  a  CHARGE-OFF. 

Paid  account.  A  foreclosure  was  started. 
Credit  grantor  paid  by  company  who 
originally  sold  the  merchandise. 

Debt  included  in  or  discharged  through 
Bankruptcy  Chapter  7  or  11. 

Account  legally  paid  in  full  for  less 
than  the  full  balance. 

Debt  included  in  or  completed  through 
Bankruptcy  Chapter  3. 

Account  not  being  paid  as  agreed. 

Account  past  due  30  days. 

30  days 
30  days 
30  days 
30  days 


Account  peat  due 
Account  past  due 
Account  past  due 
Account  past  due 
Account  past  due  30  days 
more. 


2 

3 

4 

5 

6 


t i mes , 
t i mes . 
t i mes , 
t i mes . 
t  i  mes 


or 
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30  WAS  60: 

DELINQ  60: 
DEL  WAS  90: 

DELINQ  90: 
DEL  WAS  120: 

DELINQ  120: 
DELINQ  150: 
DELINQ  180: 
SCNL  NWLQC: 

CD  NOW  PAY: 
FOREPRQC: 
GOV  CLAIM: 

CLOSE  NP  AA: 
INS  CLAIM: 

COLL  ACCT : 


FORECLOSURE: 

VOLUN  REPO : 
REPO : 

CHARGE  OFF: 
SCNL  : 


BK  7  F  T  LE : 


bk  V  DISC: 


Bk  7  DISM: 


Bk  11  FILE: 


Account  was  delinquent  60  days/now  30 
days . 

Account  delinquent  60  days. 

Account  was  delinquent  90  days/now  60 
days . 

Account  delinquent  90  days. 

Account  was  delinquent  120  days/now  30, 
60  or  90  days. 

Account  delinquent  120  days. 

Account  delinquent  150  days. 

Account  delinquent  180  days. 

Credit  grantor  could  not  locate 
consumer /consumer  now  located. 

Now  paying,  was  a  charge-off. 

Foreclosure  proceeding  started. 

Claim  filed'  with  government  for  insured 
portion  of  balance  on  a  loan. 

Credit  line  closed/not  paying  as  agreed. 
Claim  filed  for  payment  of  insured 
portion  of  balance. 

Account  seriously  past  due/account 
assigned  to  attorney  collection  agency 
or  credit  grantor’s  internal  collection 
department . 

Credit  grantor  sold  collateral  to 
settle  defaulted  mortgage. 

Voluntary  repossession. 

Merchandise  was  taken  back  by  credit 
gr antor ; there  may  be  a  balance  due. 
Unpaid  balance  reported  as  a  loss  by 
credit  grantor . 

Credit  grantor  cannot  locate  consumer . 


ITEMS  OF  PUBLIC  RECORD 

Voluntary  or  involuntary  Petition  in 
Bankruptcy.  Chapter  7- ( L i qu i da t i o n ) 
filed. 

Voluntary  or  involuntary  Petition  in 
Bankruptcy.  Chapter  7- ( L i qu i da t i on ) 
d i schar ged . 

Voluntary  or  involuntary  Petition  in 
Bankruptcy.  Chapter  7- ( L i qu i dat l on ) 
d i sm i ssed  . 

Voluntary  or  involuntary  Petition  in 
Bankruptcy.  Chapter  1  1  -  (  Reo r g an i z a t l o n ) 
filed. 
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BK  11  DISC:  Voluntary  or  involuntary  Petition  in 

Bankruptcy.  Chapter  1 1 - < Reorgani zat i on ) 
d i schar ged . 

BK  11  DISM:  Voluntary  or  involuntary  Petition  in 

Bankruptcy  Chapter  1 1 -( Reorgani zat ion ) 
d i smissed . 

BK  13  FILE:  Petition  in  Bankruptcy  Chapter  13- 

(Adjustment  of  Debt)  filed. 

BK  13  DISM:  Petition  in  Bankruptcy  Chapter  13- 

(Adjustment  of  Debt)  dismissed. 

CITY  IX  LN:  City  tax  lien 

CITY  TX  REL :  City  tax  Released 

CONSEL  SER :  Debt  Counseling  Service 

CO  TAX  LN:  County  Tax  Lien 

CO  TAX  REL:  County  Tax  Released 

FED  TAX  LN :  Federal  Tax  Lien 

FED  TX  REL:  Federal  Tax  Released 

JUDGMENT :  Judgment 

JUDGMT  SAT:  Judgment  Satisfied 

JUDG  VACAT :  Judgment  Vacated  or  Reversed 

MECH  LIEN:  Mechanic’s  Lien 

MECH  RELE:  Mechanic’s  Lien  Released 

MN  MTG  FIL:  Manual  Mortgage  Report  (if  on  written  or 

teleprinter  profile,  contact  your  local 
TRW  Information  Services  Office). 

NT  RESPON:  Not  Responsible  Notice,  e.q.,  husband  or 

wife  claims  not  responsible  for  debts 
incurred  by  the  spouse. 

STAT  TX  LN:  State  Tax  Lien 

STAT  TX  REL:  State  Tax  Released 

SUIT:  Suit 

SUIT  DISMD:  Suit  Dismissed  or  Discontinued 

WAGE  ASIGN:  Wage  Assignment 

W/A  RELEASD:  Wage  Assignment  Released 
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